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| **FILE** De *PATACT 
PPPPPPPP ABAARA TTTTTT AAAAAA TTTTTT 
PPPPPPPP AAAAAA TTTTTT AAAAAA TITTTT 
PP PP AA Ab TT AL AA CC TT 
PP PP AA AB TT AA AA CC TT 
PP PP AA AA TT AB AA CC TT 
PP PP AA AA TT AA AA CC TT 
PPPPPPPP AB aa TT AA AA CC TT 
PPPPPPPP val AA TT AA AA CC TT 
PP AAAAAAAAAA TT AAAAAAAAAA CC TT 
PP AAAAAAAAAA TT AAAAAAAAAA §CC TT 
PP AA Aa TT AA AA CC TT 
PP AR AA TT AA AA CC TT cece 
PP Aa Ah TT Aa AA cccccccc TT eeee 
PP Ab Ab TT AL Ab cccccccc TT cece 
LL T1111! SSSSSSSS 
LL IIIII] SSSSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL III] SSSSSSSS 
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is COPYRIGHT (c) 1978, 1980, 1982, 1984 8 
it DIGITAL EQUIPMENT CORPORATION, MAYNARD. MASSACHUSETTS. 
is ALL RIGHTS RESERVED. 


ie THIS SOFTWARE IS FURNISHED a A LICENSE AND MAY oe ‘a? AND gd La 
:* ONLY IN ACCORDANCE WITH THE TERMS OF CH LICEN ITH 
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® 

ie IN T NOTICE. THIS SOFTWAR : 
is COPIES THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY * 
iw OTHER PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY * 
ie TRANSFERRED. , 
*® 

it THE INFORMATION IN THIS SOFTWARE 1S SUBJECT TO CHANGE WITHOUT NOTICE 
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® 
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*® 
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'® CORPORATION. 
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5 FACILITY: PATCH 
0 i ABSTRACT: 
0 End of command Line action routine plus a few other parsing 
action routines. 
a | ENVIRONMENT: STARLET, user mode, interrupts disabled. 
00 i Version: v02-029 
00 
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! 
004 : : 
rh Carol Peters, 03 Jul 1976: Version 01 
0045 ‘ 
Bpes } MODIFIED BY: 
0048 : v03-002 MCNO185 Maria del C. Nasr 07-Aug-1984 
0049 ! Do not execute those commands that are invalid when 
0050 : patching in /ABSOLUTE context. Return error message 
boas to user. 
$088 ! v03-001 areeree Mike Rhodes 16-Aug-1982 
0054 : Modify file names to remove duplicate file aoe useage 
Bnae between code and require files. 
0089 ‘ v02-029 MTROOO3 Mike Rhodes 03-Feb-1982 


ERNAL = GENERAL, NONEXTERNAL = LONG_RELATIVE), 


-0-742 
ATCH.SRCJPATACT. 832: r 


1 
ant 


va 


ss 1 a Sep-1984 VAX=11 Bliss-32_V4.0-742 p 2 
v04-600 ea een tee 99 es Ig Ne dnthasteRccoAton ShcaPatact.e32047° «15 


nod} ty the SET PATCH_AREA/INITIALIZE Logic to check for 
a ainte 4 available patch area size of 12 bytes. This 
allows 8 bytes for the descriptor plus 1 longword of data. 


v02-028 MTROOO2 Mike Rhodes 01-0ct-1981 
Add new qualifier to rh SET PATCH_AREA command to allow 
the user to Initialize a descriptor within the patch area. 


SET PATCH_AREA /INITIALIZE=Size_Expression Patch_Area_Address 


Add require statement for Pies: :PATDEF .REQ 


; 1! 

3 1! 

: Zz 

; 1! 

: 1! 

: 1! 

oO 1 ! 

: 1! 

: 1! 

; 67 0067 1! 

; 68 0068 1! The code for reconstructing the command Line and writing 
; 9 434 1! it to the journal and/or command files as well as the 

3 a OOyt : PATCH command text area in the image are also inclused. 
: 7 0072 1! v02-027 MTROOO1 Mike Rhodes 20-Aug-1981 

: 7 0075 1! 1. Add new command, HELP. The associated command sere 
: 74 0074 1! HELP_ CMD and action routine LBRSOUTPUT_HELP (plus 

; 7 0075 1! servent routines LIBS$GET_INPUT and LIBSPUT_OU PUT) Sows 
: ze pore } been added to the appropriate places. 

; 0078 1! 2. The procedure for writing command file entries has 

..- we 0079 1! been modified to selectively make enrties only when the 
; 0080 1! commands correspond to the current ECO level. Also, the 
3; 6 (68h 0081 1! ag mae Examine, and Show commands are no longer written 
s &e 0082 1! to the command file. The vesoes’ ‘xe action routines in 
3 + Boaz : WRITE_CMD have been set to <null> 

Oe 0085 1! V02-026 KDM0042 Kathleen D. Morse 03-MAR-1981 

; a8 poe ; } Fix spelling of current patch area message. 

; 8 0088 : v02-025 PCG0001 Peter George 02-F EB-1981 

: 1} 

: 1! 
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FORWARD ROUTINE 


g routine 
processing routine 


patch command 


rocessin 
Writes command Line to command file 


ine 


it to indicate qualifier in command | 


Sets mode level to local or override level | 
Finds all command qualifiers specified 


End of command 
End of command 
Executes a 
Sets b 


OF _CMD 
CMD 
=COMQUAL 


PATSEND 
PATSGET 


! Defines Literals 
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SWITCHES LIST (SOURCE); 


EXTERNAL A. TINE 
T$fao_out; ! formats a Line and outputs to the terminal 
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PATSECO_CMDS 
PATSEXAMINE_CMD, 
PATS T 


PATSFREE_ARG, 
PATSFREERELEASE, 
PATSINIT 
PATSMA 


E 
PATSWRITE_ 
PATSWRITE NAM 
PATSWRTIMG : 


PATSGL_HELP_LIN : BLOCK (8,BYTE) 
PATSGB_MOD_PTR : REF VECTORL,BYTE), 
PATSGL-ECO-UPD : BITVECTOR, 
PAT$GB_EXEC_CMD : BYTE 
PATSGL-CSP_PTR : REF PATHNAME_VECTOR, 
PAT$SGL-COMOUAL : BITVECTOR, 
PATSGL-IHPPTR : REF BLOCKC.BYTE), 


RAB, 
PATS$GL-FLAGS : BITVECTOR (32) 
“RLOC_BUF : BLOCK BYTES 
PATSGL-TEMP~BUF : BLOCKL.BYTE 


Help options value definitions. 


Interactive help facilit 
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y i 
Not currently required...here for future ue 


Writes the help text for LBRSOUTPUT_HELP 
Adds patch area to List 

Align command 

Free up pathname storage 

Cancels symbols for modules 

Define command 

Deposit command 


; 
Set eco level and check eco level commands | 


Examine command 
Formats an FAO Line 


Updates and enlarges a buffer from a strin. 


Frees elements of a command argument List 


Releases storage in dynamic allocation are 


Initializes modes 

Maps a virtual address 

Opens command file for output 
Outputs values to output device 


Replace command = |. 

Resets modes to initialization mode 
Saves a current path name 

Initializes context bits 

Sets up symbols for modules 

Sets mode List 

Sets mode pointer 

Sets new modes 

Show default command 

Show module command 

Show scope command 2 
Writes expressions to the command file 
Writes data to a file 

Writes instruction-type command arguments 
Writes names to the command file 
Writes out new patched image 


Global descriptor to remainder of command 
Current mode pointer 
Update qualifier eco mask 
Indicator whether or not to execute patch 
Current scope position 
Command qualifier indicators. 
Pointer to patch section of image header 
Pointer to output buffer 
Size of data written into output buffer 
Command file RAB 

. ! CLI flags 
Descriptor for relocation buffer 
Descriptor temporary deposit buffer 


——— PATCH Area address and size expres | 
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1-56 -$ep-1984 00:23:1 VAX-11 Bliss-32 V4.0-742 7 
-000 14- Sep-19 4 90:43:38 DISKSVMSMASTER: CPATCH.SRCJPATACT. B32. ie * (2)! 
| 
: 227 70 1 ALIGN.QUAL_TBL = UPLIT BYTE ( 
; 8 71 1 ZASCII '/BYT', 
; 9 i 1 ZASCII ‘/WOR', 
; 0 is 4% ZASCII ‘/LON', 
3 1 74 1 ZASCII '/QUA', 
3 ¢ 75 1 ZASCII */PAG' 
; 76 «1 ) : VECTORC BYTE); 
; 4 ia 
; 235 78 1 LITERAL 
; 236 79 «1 ALIGN_QUAL_LNG = 4, : Length of align qualifiers 
$ gor 80 1 NO_CASE_TABLE = 0, ! Don* t print CASE dispatch tables | 
; § 8 81 1 CASE_TABLE = 1, ! Print CASE dispatch tables 
3 9 8 1 HELP_FLAGS = HLP$M_PROCESS OR ' Disallow HELP pronet tog only. 
; 240 283 (1 HLP$M_GROUP OR ! Default Logical Name Table seorching to 
> 241 3284 1 HLPSM_SYSTEM; ! Process, Group, and System. 
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<= 
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~ 


H t? 8 ! GLOBAL ROUTINE PATSEND_OF_CMD (SEMSP) : NOVALUE = ; 
> 245 87 1 !++ ; 
; rf S8 } FUNCTIONAL DESCRIPTION: ; 
; sie yw 37 Resets all PATCH context that is exclusive to a single PATCH command. : 
; 249 7 3 F This includes resetting default modes from single Line overrides back H 
3 520 3 : to the actual default modes and resetting a large number of context bits. | : 
3 $26 9% 1! This routine also releases any storage associated with parameters ‘ 
; & 7 2 stored for this command, more specifically for commands which 3 
; See : 7 Ff build descriptors for symbolic names. It also releases an sterege ; 
} £22 nin used for assembler directive tables, forward reference tables, an ; 
; 256 3298 1! temporary deposit buffers. : 
3 gor 3299 1! ; 
: 258 3300 1 ! CALLING SEQUENCE: : 
3 goF 3301 1! ; 
; 260 3 0¢ 1! PATSEND_OF_CMD (SEMSP) ; 
; 261 3303 1! ; 
; 262 3304 1 ! INPUTS: ; 
; 263 3305 1! | : 
3 He) ; Be : SEMSP - Of*set to command verb token on parse stack | 3 
: 266 3308 1 ! IMPLICIT INPUTS: ; 
; 267 ss07 67 : 
; 268 3310 1! PATSGL_RLOC_BUF = Descriptor for relocation buffer, if used F 
; 269 3311 1! PATSGL_TEMP BUF = Descriptor for temporary buffer used on depositing | : 
; 270 ‘har ai ie new values into memory ; ; : 
; ef 3313 1! PATSGL_OLD_ASD = Descriptor for old contents assembler directive table | : 
; e272 3314 1! PATSGL_NEW_ASD = Descriptor for new contents assembler directive table ; 
; ¢fo 3315 1! PATSGL_FWRCHD - Listhead for ForWard Reference table for instructions ; 
; 274 i) Be PAT$SGL_OLDLABLS - Pointer to Listhead for old contents label List F : 
; ¢f5 aaiy yf PAT$GL_NEWLASLS - Pointer to Listhead for new contents un-relocated label List : 
; 276 3318 1! PAT$GL_RLCLABLS - Pointer to Listhead for new contents relocated label List : 
>; 277 saiy 9 PATSGL_SYMTBPTR - Pointer to current symbol table listhead ; 
; $f8 ; 3 : PATSGL_SYMHEAD ~ Pointer to user-defined symbol table Listhead : 
: 280 3322 1 ! OUTPUTS: : 
s 81 3323 1! : 
: 282 3324 1! none : 
3 ¢83 b+, Be me. : 
; 284 3326 1 ! IMPLICIT OUTPUTS: : 
; 285 3327 1! : 
: 286 ; $8 1} none ; 
3; 6¢el , F 7 ; 
: 288 3330 1 ! ROUTINE VALUE: : 
; 289 3357 17! 3 
; 290 3 3 1% none ; 
; 291 i +S ae : 
: 292 3 $e : , SIDE EFFECTS: : 
; 3 - Fs Defaults are re-established. | ; : 
3 ae oar free storage used in symbolic name descriptors, forward reference : 
3 3 : tables, and symbolic label Lists is released. 3 
3 3340 1 !-- : 
; 3341 1 : 
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BEGIN 
LOCAL 
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ER ' Pointer to current command parameter 
_PTR : REF BLOCKC,BYTE); ! Pointer to symbolic name descriptor 


'e4¢ 

! This routine guarantees the internal consistency 

! of PATCH, and must succeed or give up. 

PATSGL_SYMTBPTR = .PATSGL_SYMHEAD; ! Reset the current symbol table to be user- 
PATSINIT MODES (OVERRIDE MODE USER_DEF MODE); 

PATSSET AOD LVL (USER_DEF MODE) ; 


07 


PATSSET ; 
PATSGB_SUBST_IN(O) = 0; ! Allow no substitution instructions 
PATSGL_COMQUAL = 0; ! Set no qualifiers specified 


+4 

: Now release any symbolic name descriptors used for this command. The commands 
! which have these string descriptors are: ALIGN, SET MODULE, CANCEL MODULE, 
;_and DEFINE. 


iF (.PATSGL_SEMANIC.SEMSP] EQL ALIGN_TOKEN) OR 
(:PAT$GL~SEMAN1C.SEMSP] EQL_DEFINE_TOKEN) OR 
(.PATSGL~CONTEXTCMODULE_BITJ) 


BEGIN 
POINTER = .PATSGL_HEAD_LST; | 
WHILE .POINTER NEGA 0 | 


BEGIN 
DESC PTR = .L 


.LIST_ELEM_EXP1(.POINTER); 
PATSFREERELEASE(<DESC-PTR, ((.DESC_PTRCDSC$W_LENGTH] + 3) /A_LONGWORD) + 2); 
POINTER = .LIST_ELEM_FLINK(. POINTER); 


| 
END; | 
END; 
'44¢ | 
Free all storage used in argument accumulation and pathname building. | 

| 


PATSFREE_ARG (); 

PATSDELETE_PATH (); 

l4e4¢ 

! Now release | temporary buffer Btorepe used to deposit new values 
} into memory. his is for commands REPLACE, INSERT, and DEPOSIT. 


iF _(PATSGL_TENP_BUFCDSCSW_LENGTH) NEQ 0) | 
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BEGIN 
PAT$FREERELEASE 


( ,PATSGL_TEMP_BUFCDSCSA POINTER], 

(.PATSGL_TEMP BUFCOSC$W_CENGTH) + 3)/4); 
PATS$GL TEMP BUF EDSCSW_LERGTH) = 0; 

DSCSA-POINTER] = 0; 


PAT$GL_TEMP_BUF 
END; 
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0 
1 
Seges tt new instructions 
SER 


14-Sep-19 


' Now release vat, relocation buffer syorege used t 
into memory. This is for commands REPLACE and I 


iF ( PATSGL_RLOC_BUF [DSCSU_LENGTH] NEQ 0) 


Ww 
~o 
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4 14 

1 =300- 138% 
to 
IN 


BEGIN 
PATSFREERELEASE ( pATSCL 


R 
PAT$GL_RLOC_BUF DSCSW_LENG 
lhe RLOC_BUF CDSCSA_ BOIN 


44 


i Now release any temporary buffer storage used for the new contents assembler 
id directive table. 


iF  ( PATSGL_NEW_ASDLDSCSU, LENGTH] NEQ 0) 


BEGIN 
PATS$FREERELEASE 


(. 
(.P 
PATSGL_NEW_ASDCDSCS$ 
parse. NEW_ASDCDSC$ 


PAT$GL_NEW_ASDCDSCS$A_POINTER], 

ATSGL_NEW_ASDCOSC$w_CENGTH) + 3)/4); 
W PENGTAI- = 0; 
A-POINTER] = 0; 


'e4 
i Now release any temporary buffer storage used for the old contents assembler 
i directive table. 


IF (.PATSGL_OLD_ASDLDSCSW_LENGTH] NEQ 0) 


BEGIN 

PATSFREERELEASE ( sPATSGL OLD_ASDCDSCS$A_POINTER], 
(.PAT$GL_OLD_ AS DCDSC$W_CENGTH] + 3)/4); 

PAT$GL_OLD_ASD[DSC$W_ PENCTH }7= 0; 

PATSOL OLD ASDEDSCS$A~POINTER) = 0; 


e+ 
There may also be some ForWard Reference table (FWR) to be released. 


WHILE (.PATSGL_FWRLHD NEQA 0) 


AANA AION NIAI NNN NAAIAANA WANN WNW NWA NWNWW 
Fe at at ae tek et ee ee ee ae ae ee et et ek ek ee ek ke ee ee ee 


PUPP BS BS BE BB EEE BEAN NAAN AIAIRIPOPINIPPINPNINDY 2 2 OO OO MS DOOOOOCOCOCOO 


BEGIN 
LOCAL 

TEM : REF BLOCKL BYTE); 
TEMP PTR “PaTSct LHD: 
PATSGL = temp. TREFWRSL_FLINK): 


PAT SFREERELEASE( . TEMP, PIR, (FWRSC_SIZE + 3)/4); 


lee 
i Now release any space used temporarily for symbolic instruction labels on 
' old contents of locations. 


WHILE (.DLL_RLINK(.PATS$SGL_OLDLABLS) NEQA .PATSGL_OLDLABLS) 
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§ g ¢3 § VAX-11 Bliss-32 V4.0-742 Pag 
2 DISKSVMSMASTER:CPATCH.SRCIJPATACT.B32; 
BEGIN 
POINTER = .DLL_RLINK(.PATSGL ae veg et 
DLL_RLINK(.PATSGL_OLDLABLS) = .DLL_RLINK(.POINTER 3 
PATSFREERELEASE (POINTER, (.SYM OERCOUNT POINT TER) + 1 + 3)/4 + OVERHEAD_SYM = 1); 
'e4 
i Now release any space used temporarily for un-relocated symbolic instruction 
son Labels on new contents of locations. 
WHILE (.DLL_RLINK(.PATSGL_NEWLABLS) NEQA .PATS$GL_NEWLABLS) 
BEGI 
cornice = .DLL agg PATSGL_NEWLABLS); 
DLL_RLINK(.PATSGL_NEWLABLS) = .DLL_RLINK(.POINTER » 
; she REERELEASE(. POINTER, (.SYM_ CHCOUNT << POINTER) + 1 + 3)/4 + OVERHEAD_SYM = 1); 
2 . 
2 l+¢ 
2 ! Now release any space used temporarily for relocated symbolic instruction 
2 | ' Labels on old contents of locations. 
WHILE (.DLL_RLINK(.PATSGL_RLCLABLS) NEQA .PATS$GL_RLCLABLS) 
‘ BEGIN 
3 POINTER = .DLL_RLINK(.PATSGL_RLCLABLS); 
3 DLL_RLINK(.PATSGL_RLCLABLS) = .DLL RLINK(.P OINTER); 
; pater MEERELEASE( POINTER, (.SYM_CHCOUNT(.POINTER) + 1 + 3)/4 + OVERHEAD_SYM = 1); 
1 END; : 
TITLE PATACT 
IDENT \V04-000\ 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 
20 4C 41 O3 O0000 P.AAA: .ASCII <3>\AL \ 
4D 20 41 43 Q4 00004 P.AAB: .ASCII <4>\CA A 
55 44 4F 40 20 41 43 O7 Q0009 P.AAC: .ASCII <7>\CA MODU\ 
2F 20 55 44 4F 4D 20 41 43 OC Q0011 P.AAD: .ASCII <Jee MCA MODU /ALL\ 
43 53 20 41 43 0O5 QOQOIE P.AAE: .ASCII <5>\C * Bh 
54 41 50 20 41 43 06 00024 P.AAF: .ASCII <6>\ EA A PAT\ 
43 45 20 54 4F tf $f rt +3 09 it g P.AAG: .ASCII <9>\CH NOT EC\ 
43 4 0 48 43 05 035 P.AAH: .ASCII <5>\CH EC\ 
46 45 44 03 0Q003B P.AAI: .ASCII <3>\DEF\ 
20 4C 45 44 O04 OQOO3F P.AAJ: .ASCII <4>\DEL \ 
0 44 Q Op beF P.AAK: .ASCII <2>\D \ 
0 45 QO 0047 P.AAL: .ASCII <2>\E \ 
6 45 0 4 944 P.AAM: .ASCII <2>\EV\ 
49 58 45 QO 004D P.AAN: .ASCII <35>\EXI\ 
20 48 bE 0051 P.AAO: .ASCII <2>\H \ 
20 45 53 4E 49 Q 0054 P.AAP: .ASCII <5>\INSE \ 
44 41 ¢] 0 OOSA P.AAQ: .ASCII <3>\!AD\ 
20 45 52 8 FA eAAR: .ASCII <3>\RE \ 
43 41 4 0062 P.AAS: .ASCII <3>\!AC\ 
43 45 20 45 53 05 00066 P.AAT: .ASCII <5>\SE EC\ 


Sete Se Se Se Se Se Se Se Se Se ee Fe Sees ee SH SH Se Se Se ee se Se ee 
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1o=ge0-1 382 9 :83:) DISKSVMSMASTER: CPATCH. SRCIPATACT. B32. 79 (3 
4D 45 4 o6¢ P.AAU: .ASCII <4>\SE M\ ; 
55 44 GF 4D 45 7 071 P.AAV: .ASCII <7>\SE MODU\ : 
4C 4C 41 2F 20 55 44 4F 4D 45 C 079 P.AAW: .ASCII <12>\SE MODU /ALL\ ; 
54 41 29 0 45 g 4 P.AAX: .ASCII <6>\SE PAT\ : 
43 5 8 45 0 O08D P.AAY: .ASCII <5>\SE SC\ : 
4D i oe 009 P.AAZ: .ASCII <4>\SH M\ : 
55 46 4F rt 0 4 2 7 3° P.ABA: .ASCII <7>\SH MODU\ 3 
43 5 0 48 5 QO0OAO0 P.ABB: .ASCII <5>\SH SC\ : 
5 01 BOOA8 P.ABC: .ASCII <1>\U\ : 
4C 58 21 58 SE 05 QOOA8 P.ABD: .ASCII <5>\*X!XL\ : 
8 6 O02 OQOOAE P.ABE: .ASCII <2>\v \ : 
3 9 $6 F 9608) P.ABF: .ASCII \/BYT\ : 
2 4F 5 F 00085 eASCII = \/WOR\ : 
4E 4F 4C 2F 000B9 eASCII \/LON\ : 
41 55 51 2F O00BD eASCII \/QUA\ : 
47 41 50 2F 000C1 ASCII \/PAG\ 3 
ISE$SC_SIZE== 20 
TXT$C_SIZE== 4 
PAL$C_SIZE== 16 
ASDSC_SIZE== 9 
FWRSC_SIZE== 24 
ALIGN” CMD= P.AAA 
CANCEC_MODE_CMD= P.AAB 
CANCEL MODU_CMD= AAC 
CAN_MOB_ALL~ CMD= P.AAD 
CANTEL_SCO_CMD=  AAE 
CANCEL PAT_CMD= P.AAF 
CHECK_R_ECO_CMD= . AAG 
CHEC 0_CAD= P.AAH 
DEF INE_CMB= P.AAI 
ELETE-CMD= P.AAJ 
DEPOSIT_CMD= P.AAK 
EXAMINE CMD= P.AAL 
EVALUATE_CMD= P.AAM 
_CMD= P.AAN 
D= P.AAO 
INSERT_CMD= P. AAP 
= P.AAQ 
REPLACE_CMD= P.AAR 
SCO_NAM_CMD= P.AAS 
SET-ECO-CMD= AAT 
SET_MODE_CMD= P.AAU 
SET-MODU- CMD= AAV 
SET-MOD_ALL_CMD= P. AAW 
SET_PAT_CMD= - AAX 
SET-SCO-CMD= P.AAY 
SHOO_MOBE_CMD= P.AAZ 
SHOW MODU- CMD= P.ABA 
SHOW SCO_CMD= P.ABB 
ATE_CAD= P.ABC 
VALUE CMD= P.ABD 
VERIFY_CMD P.ABE 
ALIGN "QUAL. TBL= P.ABF 


ERTRN PATSFAO_OUT, LBRSOUTPUT_HELP 
ENT RN LIB$GET~INPUT, LIBS$PUT OUTPUT 
-EXTRN PATSADD"PAL, BATSALIGN™ CMD 


| 12. oan 
04-600 71986 92:82:28 


32 V4.0-742 Pa age 
R: CPA ATCH.SRCIPATACT. B32;1 


PATSDEPOSIT_ CMD 
rate INE_ CKD 


FILL_BUF 
POATSFREERELEASE 
anes, PATSMAP_ADDR 


E- CMD 
RN PATS$R ESeT DEF PATSSAVE_SCOPE 
RN PATS$SET XT 

TRN PATSSET_ =hODULE PATSSET_MOD_LST 
TRN PATS$SET LVL 

PATSSETON O-hob 

PATSSHOO. EWrHOD PAT$SHOW_ MODULE 
XTRN PAT$SHOW SCOPE, pant AT$W RITE EXP1 


>< OK OK OK OK OK OE OE OE OE OK OK OE 
_" 


=< >< 
44 
zDD 
22 


XTRN PATSSB- EX nod Pr C 

XTRN PAT$GL_CSP psn? PATSGL COMQUAL 
XTRN PATSeL~ “perie PATS cP_OuT 

XTRN PATSGL $12, PATSGC LORRAG 
EXTRN PATSGL “FLARS barsar oRCOC _BUF 
“EXTRN PATS$GL~TEMP_BUF 

.EXTRN PATSGL— “bt Keb. PAT$GL_NEW_ASD 
-EXTRN PAT$GB_S 

-EXTRN PATS$GL_ PUR HB. PATSCP_INP_DSCS 
-EXTRN PATS$GB_T MD 

-EXTRN PATS$GL_ ~(ONTEXT PAT$GL_HEAD_LST 
-EXTRN PATS$GL_JNLRAB, PATSGL_SEMANT 
-EXTRN PATSGL~ =IMGHDR PATSGL- PATAREA 


“WEAK = ACCESS~CHECK 
.PSECT _PATSCODE,NOWRT,2 
03FC 00000 -ENTRY PATSEND_OF_CMD, Save R2,R3,R4,R5.RO.R7.RB,~ ; 


59 000000006 00 9E 00002 MOVAB PATSGL_FWRLHD, R9 ; 

58 000000006 00 9€ 00009 MOVAB PATSGL-OLD_ASD, R8 : 

57 000000006 00 9E 00010 MOVAB PATSGL_NEW ASD, R ; 

56 44444 00 9E 4 hed MOVAB PATSGL-RLOC_BUF, R6 ; 

55 i 00006 Bp 9E pote MOVAB ATSGL_ TEMP . : 

54 000000006 00 9€ 000 MOVAB PATSFREERELEASE, R4 ; 

000000006 00 000000006 00 00 0002C MOVL PATSGL_SYMHEAD, PATSGL_SYMTBPTR : 
01 OD i 7 PUSHL #1 : 

Bg DD 00039 PUSHL A ; 

000000006 00 FB BRb78 CALLS #2, PATSINIT_MODES : 
01 DD 0004 PUSHL #1 : 


16 “11 Bliss-32 V4.0-742 
WERT AS SOREN PMD IWBhLHE Pha’ SMcamnracr.aseht™ 
PATACT zm 
- CALLS PATSSET_MOD_L 
1 FB 00044 SET-CONTEXT 
ee eT Ce 
00000 444 43 8 + Bode CLRL PATSGL COMQUAL UAL 
§ sooooo8Scoots 39 99885 ROME SEREE"RDasatcnon, 
6 000000 060049 0 00062 yA Vi 
: Bite et oy 
" a5 1 O00 ren 
000000006 23 aS SEue on, > RC Biron, pene Ast, vormven 
52 000000006 0 9 O007¢ 1s: MOV. BATSGL_ 
AD pd 00088 ©* sys AXPOINTER), DESC_PTR 
33 < 63 Be 00089 MOVZWL CDESC PTR). RO 
9 a a a 
50 02 AQ 9F 00092 Pus” SeSt-PTR 
83 BO BOOS CALLS #2, PATSFREERELEASE 
64 OF te OOO MOVE (POINTER), POINTER 
a FS te o00% 38: EARLS #0. PATSFREE_ARG 
0G 00 OO EB OO0AS  ~CCALES. «#0, PATSDELETE PATH 
So000000¢ 00 OP C8 BOs TL PATSGL_ TEMP_BUF, 
000000006 99 €3$¢ DooAD nov a 
12 1 
50 08 CO 000B2 ater = (SP) 
50 04 C7 00085 PUSHL rhe 0, 
és * OS FS tote CALLS #2 PATSFREERELEASE 
64 02 FB 000BC CLAW PATSGL P_BUF 
G2 Be boner CLR. PATSCL~TEMP”BUF +4 
0 88 BC Goats 4s: —MOVZWL PATSCLZRLOCZBUF. RO 
™ 12 13 000c? BEL 5S a0 
3s FB Be pew 
= mM OTE tenet CALLS Pte BEER te 
08 Bs 90006 ELRL  PATSCLTRLOC~BUF +4 
04 bo Bt Boobs S$: MBVZWLPATSCLZNEW RED, RO 
en) 
50 03 3 iit Ste = (SP) 
5C 04 (C7 OO0E PUSHL ri: 0, D+4 
- le ans BH CALLS #2 PATSFREERELEASE 
64 06 FB QOOEA CLRW PATS$G GL_NEW_ASD 
or Oe Rober CLRL - PATSCLNEWTASD #4 
04 8 BC Ob0Fe 6S: -ROVTWL PATSCLORDTASD. RO 
50 12 13 doors °° Beat 
03 CO 000F? Dives | #4. RO, =(SP) 
28 bc 7 OOOFA DIVES #4. RO, gL A 
we 0 OS FB Oor0l CALLS #24 PAT FREEREL EASE 
“ 4 00104 Tie tee ee 
04 8B D4 OO106 CLRL = PATSGL_OLD 
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PATACT Sep-1984 VAX-11 Bliss-32 V4.0-742 ge 16 
y04-000 16-Sen-1984 99: g3: 4 Disk KSVMSMASTER: CPA ATCH.SRCIJPATACT. B32. 79 (4). 
3 ree rk } GLOBAL ROUTINE PATSEND_OF_LINE (SEMSP) : NOVALUE = 

3: 447 rh 1 44 

; rr rh : } FUNCTIONAL DESCRIPTION: 

; 450 491 1! Calls the PATSEND_OF_CMD to reset all petch context that is 

; 451 492 1! exclusive to a singe PATCH command. This includes resetting default 
; 126 4935 1! modes from single line overrides back to the actual default modes and 
; 45 494 1! resetting a ky number of context bits. In addition, any free 

3 rr $092 ! storage required temporarily is released. 

3 $28 497 1! Also, the command Line buffer is released. 

; 45 496 1! 

; 458 499 1 ! CALLING SEQUENCE: 

; 459 500 1! 

; 460 3501 1! PATSEND_OF_LINE (SEMSP) 

: 461 3208 1! 

; 46 503 1 ! INPUTS: 

; 46 $2pe 1! 

: 464 505 1! SEMSP = Offset to command verb on parse stack 

; 465 3506 1! 

; 466 3907 1 =! IMPLICIT INPUTS: 

: 467 3508 1! 

; 468 3509 1! PATSCP_INP_DSCS = Address of vector of command Line buffer descriptors, 
: 469 3510 1! first longword of which is count of descriptors 

; 470 3511 1! 

: 471 a216 1 ! OUTPUTS: 

: 67 3513 1! 

: 47 3514 1! none 

3; 474 3515 1! 

3; 475 3516 1 ! IMPLICIT OUTPUTS: 

: 676 3517 1! 

: 477 3518 1! none 

3; 478 3519 1! 

3; 479 3520 1 ! ROUTINE VALUE: 

; 480 3521 1! 

; 481 $25§ 2 none 

: 48 3525 1! 

; 48 3524 1 ! SIDE EFFECTS: 

> 6484 >>> a ; r : 

; 485 3526 1! Defaults are reestablished. The command Line buffer space is released. 
: 486 3527 1! 

3; 487 3528 1 !-- 

; 488 3269 1 

: 489 530 BEGIN 

: 490 3531 

: 491 HRT LOCAL 

; 49 53 temp_loc; 

:; 49 534 

: 694 535 'e¢ 

3: 495 536 i This routine guarantees the internal consistency 

: rh 23% i _of PATCH, and must succeed or give up. 

: 498 3539 PATSEND_OF_CMD(.SEMSP); 

: 4699 540 

; 500 $20) 'e¢ ; 

; 501 542 ' Now release the command Line buffer space. 
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PATACT 1b-Se 1984 00:23:1 VAX-11 Blis $732 V4.0-742 ge 17 
v04-000 12-8 08- 1 3b 09:85:38 DISKSVMSMASTER: CPATCH. SRCJPATACT. B32. 79 (4) 
: 50 543 l—= 
3 508 ete Incr LOOP FROM 1 TO .PATSCP_INP_DSCSCOJ*2 BY 2 
; 505 266 IF .PATSCP_INP_DSCSC.LOOP] NEQ 0 
; 506 54 THEN 
: §07 $548 BEGIN 
; 508 549 PATSFREERELEASE (. PATSCB_ INP _DSCS f-L0 +1), 
; 509 3320 (.PAT$CP~INP-DSCS {OOP +°3) / 4); 
; 510 551 PATSCP_INP_DSCS [.LOOP) = 0; 
: $11 s226 H PATSCP_INP_DSCS C.LOOP+1) = 0; 
3 21g 55 ND 
s $1 554 § ELSE 
3; 514 555 RETURN; 
s $15 3556 1 END; 


001¢ 00000 .ENTRY PATSEND_OF_LINE, Save R2,R3,R4 > 3486 | 
54 000000006 00 9€ 00002 MOVAB PATS$CP_INP“DSCS, R4 ; 
04 AC DD 00009 PUSHL sem SP > 3539) 
FE62 «CF 01 FB 0000C CALLS PATSEND_OF _CMD ; 
50 64 pO 00011 MOVL patsce INP_BSCS, RO ; 3544 
53 60 01 78 00014 ASHL #1, (RO), R3 : | 
52 01 cE 00018 MNEGL #1. LOOP’ : | 
26 11 0001B BRB 2$ : 
50 64 DO 0001D 1$: MOVL §PATS$CP_INP_DSCS, RO : 3546. 
6042 D5 00020 TSTL (RO) CLOOP) ; 
24 13 00023 BEQL 3$ : 
51 6042 03 Ci 00025 ADDL3 #3, (RO)CLOOPI, R1 : 3550 
7E 51 04 C7 0002A DIVL3 -(SP) ; 
04 A042 DD 000¢E PUSHL  4(RO)CLOOP) > 3549) 
000000006 00 02 FB 00032 CALLS #2, PAT SE REERELEASE ; 
50 64 DO 00039 MOVL § PATSCP_INP_DSCS, RO > 3551 
6042 D4 0003C CLRL RO) tLOOr) 3 
04 Add? D4 0003F CLRL  4(RO)CLOOP : 3552 
FFD4 52 02 53 F1 00043 2$: ACBL 3, #2, LOOP, 1$ > 3546 
04 00049 3$: RET : 3556 


; Routine Size: 74 bytes, | Routine Base: _PATSCODE + 018D | 
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GLOBAL ROUTINE PATSPERFORM_CMD (SEMSP) = 


i FUNCTIONAL DESCRIPTION: 
Action routine for a single PATCH command. Based on the command verb 
various routines are called to execute the command. After the command 
is executed, a cleanup is done to reset the ‘one Line’’ modes to the 
default modes and reset the context switches. The command Line is 
written to the output command file, if one is being created. 
' CALLING SEQUENCE: 
PATSPERFORM_CMD () 
! INPUTS: 
SEMSP = Offset in parse stack which holds current verb token 
! IMPLICIT INPUTS: 
none 
OUTPUTS: 
TRUE or FALSE, depending on whether parsing is to continue or not. 
IMPLICIT OUTPUTS: 
none 
ROUTINE VALUE: 
TRUE or FALSE 
SIDE EFFECTS: 


A PATCH command is actually executed. 
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BEGIN 
600 LOCAL 
601 BIT_NUMBER, ' ECO bit number | a cs 
3006 ECOCVL_PTR : REF BITVECTOR, ! Pointer to ECO bits in faage header 
360 OUTPUT" BUF : VECTORCNO_OF_INP_CHARS,BYTE), ! Buffer for journal file output. 
64 3604 ISE_PTR; ! Pointer to image section descriptor 
65 3605 
66 606 ¢ itt Le ' ‘hehe 
67 607 ! If the /UPDATE qualifier was specified, then the execute command indicator, 
68 608 ! PATSGB_EXEC_CMD, may be set to FALSE sadicat ing the current patch session 
69 609 ! should’be skipped. If this is the case, then don't bother to execute the 
70 $219 ! command unless it is a new ‘SET ECO" level, agian a new patch session. 
71 611 : If /UPDATE was not specified, then the execute command indicator is olneys es 
% 2016 ' TRUE. In this case, execute the complete command. In all cases, the “EXIT 
7 61 ! command must be executed. 
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: 574 614 leo 3 
; 575 615 IF (.PAT$GB_EXEC CHD) OR : 
; 37 O18 (, PATSGL_CONTEXTCSET gf) OR 3 
; 7 61 (. PATSGL_SEMANIC.SEMSP EQL EXIT_TOKEN) ; 
; Sf $18 THEN 3 
; 579 61 BEGIN : 
H 44 ? Y CASE .PATSGL_SEMAN1 C.SEMSP] FROM ALIGN_TOKEN TO VERIFY_TOKEN OF ‘ 
3 286 6 $ SET 3 
@ 58 6 | ° 
> 584 624 CALIGN_TOKEN): | : 
; 585 625 IF .PATSGL_FLAGS CPAT$S_ABSOLUTEJ : 
; 586 626 TH : 
; 587 627 SIGNAL (PAT$_INVCMDABS) ; 
; 588 30 8 ELSE | : 
; 589 629 PATSALIGN_CMD (); : 
; 590 3630 : 
; «(591 3631 CCANCEL_TOKEN): : 
; 298 3632 IF .PATSGL_CONTEXTCMODE_BIT) | 3 
; 3 363 3 
3; 594 3634 3 PATSRESET_DEF () : 
3 395 3635 ; ELSE 2 
: 596 3636 3 
; 597 3637 3 IF .PATSGL_FLAGS CPAT$S_ABSOLUTE]) é 
; 598 3638 3 
; 599 3639 SIGNAL (PAT$S_INVCMDABS) é 
; 600 3640 LSE 3 
; 601 3641 ; : 
: 60 3046 SELECTONE TRUE OF : 
; 60 3643 3 SET 3 
3 604 3644 ; | 3 
; 605 3645 C.PATSGL_CONTEXTCPAT_AREA_BITJ): 3 
3 one $005 ; PATSGL_PATAREA = CHSPTR(PATSGL_IHPPTRCIHPSL_RW_PATSIZ], 0); : 
; 608 3648 3 C.PAT$GL_CONTEXTCMODULE_BIT)]: ‘ 
; 609 3649 3 PATSCANC_MODULET); : 
3; 610 3650 3 3 
3; 611 3651 3 C.PAT$SGL_CONTEXTCSCOPE BIT)): 3 
; 61¢ 363¢ 3 PATSSAVE_SCOPETFALSE); 3 
: 61 3653 3 TES; ; 
3; 614 3654 3 3 
; 615 3655 3 CCHECK_TOKEN): : 
; o16 $026 IF .PATSGL_FLAGS CPAT$S_ABSOLUTE] : 
> 618 3058 SIGNAL (PAT$_INVCMDABS) ; 
; 619 659 : 
: 620 3660 PATSECO_CMDS (); : 
: 621 661 3 
3 oc¢ 666 CCREATE_TOKEN): 3 
s 6 6 PATSOPEN_COMFIL(0, 0); 3 
3: 624 664 3 
FY o¢? 665 CDEF INE_TOKEN): 3 
: 626 666 4 BEGIN 3 
3 os? 667 4 ; 
: 628 668 4 LOCAL 3 
; 66° 669 4 POINTER; 3 
; 650 670 4 3 
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; 631 671 4 POINTER = ,PAT$GL_HEAD_LST; ; 
; 6 ; oe 5 WHILE (.POINTER NEQ 0) : 
3; 8 6735 4 DO : 
; 654 674 2 BEGIN ; 
; 635 675 PATSDEFINE_SYM (.LIST_ELEM_EXP1 (.POINTER), .LIST_ELEM_EXP2 (.POINTER), TRUE); ; 
; 636 ore 5 POINTER = CLIST_ELEM_FLINK (.POINTER); ‘ 
; 637 677 4 END; ‘ 
; 638 678 END; ‘ 
; 639 679 ‘ 
; 640 680 CDELETE_TOKEN]: : 
: 641 681 4 IN ; 
; 64 one 4 PATSGL_CONTEXT CDELETE_BIT] = TRUE; ‘ 
> 64 683 4 PATSDEPOSIT_CMD (); : 
3 644 684 END; : 
Py 645 685 ° 
3; 646 3686 CDEPOSIT_TOKEN): ‘ 
3; 647 3687 PATSDEPOSIT_ CMD (); ‘ 
> 648 3688 : 
: 649 ed CEXAMINE_TOKEN): ‘ 
; 650 690 4 BEG ; 
; 651 3691 4 PATSGL_CONTEXT we Panes BIT] = TRUE; ‘ 
; O26 3692 4 PATSEXAMINE_CMD (); é 
; 65 693 3 END; : 
: 654 694 3 : 
: 655 3695 3 CEVALUATE_TOKEN): : 
; 656 3696 4 BEGIN : 
3; 657 3697 4 LOCAL : 
; 658 3698 4 POINTER; ‘ 
3; 659 3699 4 POINTER = .PAT$GL_HEAD_LST; ° 
; 660 3700 5 WHILE (.POINTER NEQ 0) : 
3; 661 3701 4 DO ; 
; 662 3702 5 BEGIN | : 
; 6635 3703 5 PATSOUT_MEM_LOC (LIST_ELEM_EXP1 (. oes 0, CASE_TABLE); ° 
; 664 3704 5 POINTER = .CIST_ELEM_FLINK (.POIN TER ; 
; 665 3705 4 END; ‘ 
; 666 3706 3 END; ‘ 
: 667 3707 3 ; 
; 668 3708 3 CEXIT_TOKEN}: | : 
; 669 3709 4 BEGIN ° 
; 670 3710 4 pb ae TAKE_CMD = AL Se : 
: 6671 3711 4 {.PATSS GL_ “F CAGS A D PATSM_UPDATE) NEQ 0 : 
; 672 aig 4 : 
; 675 3713 5 BEGIN : 
3 674 sie 5 ECOLVL_PTR = CHSPTR(PATSGL_ pePrat lees, -ECO1J, 0); ° 
; 67? nN 2 ye BIT NUMBER FROM PAT$K_MIN_ECO-1 TO’ PAT$K_MAX_ECO-1 : 
: 67 3718 5 IF .PATSGL_ECO_UPDC.BIT_NUMBER) ; 
: 678 718 5 THEN : 
3; 679 719 «5 IF NOT .ECOLVL_PTRC.BIT_NUMBER] : 
; 680 720 5 THE : 
; 681 721 5§ SIGNAL(PAT$_NOUPDATE, 1, .BIT_NUMBER+1); : 
; 68 ? ¢ 6 END; ‘ 
; 68 7 END; : 
: BBs 458 [HELP_TOKEN]: ; 
; one 3558 LBRSOUTPUT HELP (LIBSPUT_OUTPUT,,PATSGL_HELP_LIN, %ASCID ‘PATCHHELP’, %REF (HELP_FLAGS). LIB) : 
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; 688 7 § 3 CINSERT_TOKEN): 

; 689 7 4 N 

; 690 730 5 IF (NOT .PAT$SGB_MOD_PTRCMODE_INSTRUC]) 

; 691 731 4 THEN 

; FF 7 ¢ 4 SIGNAL (PATS_INVCMDABS) ; 

; 69 733 4 PATSGL_CONTEXT CINSERT_BIT] = TRUE; 

> 694 734 & PATSREPLACE_CMD (); 

; 695 735 END; 

; 696 736 

; 697 737 CREPLACE_TOKEN): 

; 698 3738 PATSREPLACE_CMD (); 

; 699 739 

; 700 740 CSET_TOKEN): 

3 fol 741 IF .PATSGL_CONTEXTCMODE_BIT) 

; 70 Hoe THEN 

; 3743 4 BEGIN 

: 704 eiee 4 '++ 

; 705 745 4 : The "'SET MODE*' command verb must be written to the | 

; 706 3746 4 ! indirect command file here as the modes to be ‘‘SET' 

3; 6707 3747 4 ' are output in PATSSET_MOD_LST and the information 

; 708 3748 4 ' lost. Therefore, only the "EXIT'’ to the ‘'NEW>’’ prompt 

: 44 $o08 : will be output in the routine, WRITE_CMD. 

. ri 3751 4 PATSWRITEFILE(.SET MODE CMDCO], SET_MODE_CMDC[1], PAT$SGL_COMRAB); 

: 712 3526 4 PATSSET_MOD_LST (USER_DEF_MODE); 

. Ts 3753 4 

: 714 3754 3 ELSE 

3 715 3755 3 

; 716 3756 3 IF_ .PATSGL_FLAGS CPAT$S_ABSOLUTE]) 

3 Tir Sela. THEN 

; «718 3758 3 SIGNAL (PAT$_INVCMDABS) 

; 719 3759 3 ELSE 

; 720 3760 3 

s fel 3761 3 SELECTONE TRUE OF 

3; 722 $708 3 SET 

s Tes 3763 3 

i 726 3764 3 C.PAT$GL_CONTEXTCSCOPE_BITJ]: 

3; tes 3765 3 PATSSAVE_SCOPE™ (TRUE); 

; 726 3766 3 

S var 3767 3 C.PAT$GL_CONTEXTCSET_ECOJ): 

3 fee 3768 3 PATSECO_CMDS (); 

3 fe 3769 3 

: 730 3770 3 C.PATSGL_CONTEXTCPAT_AREA_BITJ): 

; 731 44 3 

; t= ore 4 BEGIN 

3 735 3773 4 PATSMAP_ADDR(.LIST_ELEM_EXP1(.PATS$GL_HEAD_LST), 

3; 734 3774 4 PATSGL_PATAREA, ISE_PTR); 

s 735 $57? 4 144 f 

i; 736 776 4 :The SET PATCH AREA command may have a /INITIALIZE=size expression 

s 37 777 & ‘qualifier included. If its present, then check first that the size 
; 738 778 4 ‘value is not larger than the patch area. If size is to big then, we 
; 739 779 4 ‘assure that sufficient space exists to accomodate the patch area 

: 740 780 4 ‘descriptor plus a longword (12 bytes). If space does exists then we 
: 741 781 4 'set the default size to the size of the unused portion of the patch 
3 ts re¢ 4 ‘area image section, informing the user of course. Else, we signal 
3 676 7835 4 ‘an informative error message stating the address and amount of space 
3; 746 784 4 ‘available. Next, check to make sure that the patch area has not already 
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; 745 785 4 'been initialized. If it has, issue a warning to the user and set up the 

; 746 ree 4 ‘descriptor info. If it has not been previously initialized then take ~ 

s 767 7 4 ‘size value and insert it into the first long word of the patch area and 

3 re ree ? ‘set the second long word to point to the succeeding long word (eg. .+4). 

s 750 790 4 eee NOTE *** The size value that is inserted into the first long word 

s 751 791 4 i is reduced by 8 (the size of the descriptor) to reflect the fact that 

; P36 ie ? we have eaten up this space with the descriptor. 

s; 734 794 4 i Also note, that since the address of the patch area is synomous 

s 755 795 4 i with the address of the patch area descriptor, updating the pointer 

3 reg $798 4 i PAT$GL _PATAREA is not necessary. 

; 757 797 & ine 

s 738 3798 4 

; 759 3799 4 IF (.PAT$SGL_CONTEXT CINIT_PAT_BIT]) THEN 

: 760 $009 5 BEGIN 

3 Tel 801 5 PATCH_AREA = -PATSGL a : VECTOR C, LONG), 

3 16g se08 5 FIRST_AVAIL ADR = LIST ELEM_EXP1L.PATSGL HEAD (stl, | 
: 76 3803 5 INITIAL_SIZE = LIST TPLeMe EXPO’ PATSGL HEAD_LST); | 
3; 764 3804 5 

; 765 3805 5 LOCAL 
; 766 3806 5 AVAIL BYTE_CNT, ‘Number of available. 
3 per $E55 : ISD_PTR : REF BLOCK C, BYTE]; 'Points to the curre. 
: 769 3809 5 ISD_PTR = CHSPTR (. ISE_P ISE$C_SIZE 

: 770 3810 6 AVATL_BYTE_CNT = CISD SPIRE ISDSU PAGCNTS 

: ort Hae 2 - (FIRST AVAIL _ADR - “ISD > PERLISDSL.. VPNPFC] * 512), 
s 775 3515 5 IF (.AVAIL_BYTE_CNT LSS 12) THEN ‘Can we accomodate t| 
3: 774 3814 6 BEGI a longword (tote ia 
»- Irs 3815 6 SIGNAL Fr wiht 2, «FIRST_AVAIL Ann. * AIL_BYTE “ENT | 
: 776 3816 6 PATSEND_OF_LINE (.SEMSP); ‘Clean up after ours 
Tee ide 3817 6 RETURN FALSE iGo process next com | 
; ge 3818 5 END; 
; 779 3819 5 | 
; 780 3820 5 IF (C(.INITIAL_SIZE LEQ 0) OR (.INITIAL_SIZE GTR .AVAIL_BYTE_CNT)) TH 
; 781 3821 6 BEGIN 'Set the default pat. 
: 782 3822 6 INITIAL_SIZE = .AVAIL_BYTE_CNT; available space in | 
; 783 3823 6 IF (.PA TeH AREALO] LEG 0) THEN ould the user be | 
; 784 3824 6 SIGNAL (PATS _BADINITSZ, + - INITIAL_ SIZE - snoy 'YES, they wil) 
; «785 3825 5 END; ‘signalling the adju | 
; 786 3826 5 | 
; 787 3827 5 

; 788 $858 5 IF (.PATCH_AREACO] LEQ 0) THEN 

3; 789 4 6 BEGIN ‘Initialize a descri | 
; 790 3830 6 PATCH_AREALO] = .INITIAL_SIZE - 8; ‘area in the first t | 
; 791 3831 6 PATCH” -AREAL1) = .FIRST AVAIL_ADR + 8; ‘patch area. Adjust. 
; 79 3836 6 ND ‘address values tor 
; 79 833 5 ELSE 

: 794 3834 5 SIGNAL (PAT$_PREVINIT); ‘Patch Area was prev | 
; 795 835 5 
3; 796 836 4 END; 

: 797 837 4 

; 798 838 4 PATSADD =PAL PAT$GL_PATAREACDSC$A_POINTER] 

; 799 839 4 PA T$GL PATRREACDSCSA_ POINTERI+. PATSGL _PATAREACDSC$W_LENGTH], 
; 800 840 4 PALSK_ ‘oD. _PAREA); 

; 801 3841 3 END; 
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i Now output the command to the appended patch command text. 


C.PATSGL_CONTEXTCMODULE_B1TJ]: 
PATSSET_MODULE (0); 
TES; 
CSHOW_TOKEN): 
IF_.PATSGL_CONTEXTCMODE _BIT] 
gg ATSSHOW_DEFAL () 


if gPATOGL LASS CPAT$S_ABSOLUTE) 


SIGNAL (PAT$_INVCMDABS) 
ELSE 


| tla TRUE OF 

SET 

C.PATSGL_CONTEXTCSCOPE Bia: 
PATSSHOW_SCOPE™ () 


C.PATSGL_CONTEXTCMODULE p1133: 
PATSSHOW_MODULET) ; 


C.PATSGL_CONTEXTCPAT_AREA_BITJ): 


$FAO_TT_OUT(*current patch area size: 
$GL -PATAREALD 53¢$u_LENGTHS) ; 
$FAO_TT_OUT(’ current ps tch a address: 
END »PATSGL «PATAREALDSCSA,POINTER]); | 
TES; : 
CUPDATE_TOKEN]: 
“PATSWRTIMG(); 


CVERIFY_TOKEN): 
“BEGIN 


PATSGL We BIT] = TRUE; 
PATSREPLACE CR 


COUTRANGE): 
ak re EOD EQL EOL_TOKEN 


BEGIN 
PATSEND_OF_LINE (.SEMSP); 
Ae FALSE 


TES; 
END; 


Since the command 
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; 859 899 ' has already been successfully executed, call WRITE_CMD to reconstruct the 

: 860 90 i command and write it to the command file, if desired. PATSWRITEFILE 

; 861 901 i handles output to the command file hs to the appended patch command text 

: Hy 85 ' buffers, PATSGL_TXTxxxx. 

> 864 904 WRITE _CMD(.SEMSP); 

; 865 905 

; 866 906 1+4 

: 867 907 Check for end of command Line. If this is the end of the command Line, then 
; 868 3908 i Pines fer another command otherwise process the next command in this command 
BR gi gy fine 
3 18 $o13 if. -PATSGL_SEMAN1 C.SEMSP + PATSK_SPOS_ONE] EQL EOL_TOKEN) 

; 87 391 te BEGIN 

; «874 3914 PATSEND_OF _LINE(.SEMSP); 
; 875 3915 ; RETURN FALSE; 

: 876 3916 END 

: 877 3917 2 ELSE 
; 878 3918 2 PATSEND_OF_CMD (.SEMSP); 
; 879 3919 2 

; 880 3920 2 A TRUE; 

; 881 3921 1 END 


INFO#212 Li: :3726 | 
Null expression appears in value-required context 


.PSECT _PATSPLIT,NOWRT ,NOEXE ,0 | 


000C5 .BLKB 3 | 
00 00 00 50 4C 45 48 48 43 54 41 50 000C8 P.ABH: <ASCII \PATCHHELP\<0><0><0> : | 
01060009 00004 P.ABG: .LONG 17694729 : | 
00000000" 00008 “ADDRESS P.ABH : 
1C OO0DC P.ABI: .BYTE 28 ; 
61 20 68 63 74 61 70 20 74 6€ 65 72 72 75 63 000DD ASCII \current patch area size:\<9>\!XL\ 5 
58 21 09 3A 65 7A 69 73 20 61 65 72 OOOEC : | 
1F OOOF9 P.ABJ: .BYTE 31 3 
61 20 68 63 74 61 70 20 74 6€ 65 72 72 75 63 OQOOFA ASCII \current patch area address:\<9>\!XL\ : 
58 21 09 3A 73 73 65 72 64 64 61 20 61 65 72 00109 : 
4C 00118 ; 
} 
-PSECT _PATSCODE.NOWRT,2 
OFFC 00000 -ENTRY 53h 4 il a tal Save R2,R3,R4,R5,R6,R7,R8,-; 3557 | 
5B 00000000' FF 9E 00002 MOVAB P.ABG ; | 
5A 990000006 0 9E 00009 MOVAB LIBSSIGNAL, R10 : | 
59 000000006 00 9€ 00010 MOVAB PATS$GL_PATAREA, R9 ; 
58 000000006 00 9€ 00017 MOVAB PATS$GL“FLAGS, R8 ; | 
57 000000006 00 9€ O01E PATSOL = CONTEXT, R7 ; | 
3 FF74 CE 3 00 MOVAB (SP) ; 
13 000000006 99 ES 0002A BLBS pATSGB bers CMD : 3615 | 
1 02 A7 2 €0 00031 BBS PAT gL CONTEXT#2, 1$ : 3616. 
50 04 AC 00 00036 MOVL Seasp sR ; 3617 | 
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OA 0000000060040 D1 0003A CMPL § PATSGL_SEMAN1CROJ, #10 ; | : 
7 if} 042 BNEQ 7$ : | : 
54 0 AC 00 00044 1$ MOVL §SEMS : 3620. ; 
50 0000000060044 D0 00048 MOVL PATSG( _SE SEmawi R62, RO : | : 
1 1 50 CF 00050 CASEL RO. #7 : : 
007A 007 90 B 0086 0054 2$: 3$-2$,- : : 
00BB 00A OA0 08 005¢ 4$-2$.- : ; 
0134 010€ 00D7 OOAE 00064 9$-2$.- : j 
0288 025¢ 0150 02¢ 0006C¢ 11$- =38.- : : 
02C1 00074 13$-2$.- : ; 
15$-2$,- : ° 
16$-2$.- : ; 
19$-2$,- : : 
17$-2$,- : : 
21$-2$.- : F 
25$-2$,- 3 : 
27$-2$,- : F 
39$-2$.- : | F 
46$-2$.- : | ; 
52$-2$.- : F 
53$-2$ : ; 
00000063 =F 50 D1 00076 CMPL RO, #99 : 3887. F 
58 12 0007D BNEG  12$ : : 
01¢B 31 0007F BRW 39$ + 3890. : 
E 68 06 £0 00082 3$ BBS #6, PATS$GL_FLAGS, 9$ ; 3625 | ] 
000000006 00 00 FB 00086 CALLS #0, PATSALTGN_CMD ; 3629) : 
48 11 0008D BRB + 3625 : 
09 67 £9 OOOBE 4S: BBC PATSGL CONTEXT, 58 : 3632 
090000006 00 00 FB 00092 CALLS PATSRESET_DEF : 3634) : 
72 11 00099 BRB 138 : | : 
25 68 06 £0 0009B 5$: BBS #6, PATSGL_FLAGS, 33 ; 3637 | ; 
OA 02. A? 03 £1 0009F BBC #3. PATSGL-CONTEXT+2, 6$ : 3645 | : 
69 000000006 00 10 C1 O00A4 ADDLS #16, PATSGC_IHPPTR, PATSGL_PATAREA : 3646 ; 
67 95 OOOAE 6$: TSTB —- PATSGL_CONTEXT : 3648 : 
09 18 00080 BGEQ : : 
000000006 00 00 FB 00082 CALLS #0, PATSCANC_MODULE ; 3649 | : 
3 11 000B9 7$: BRB : | ; 
4E 02 A? €9 000BB 8$: BLBC = PATSGL_CONTEXT+2, 18$ : 3651) : 
7E pA O00BF CLRL  =(SP) : 3652 : 
010F 31 000C1 BRW 32$ : : 
03 68 06 £1 000C4 9S: BBC #6, PATSGL_FLAGS, 10$ : 3656 
ours 1 0008 BRW 48$ ; 
0113 31 000CB 10$:  BRW 35$ : 
7E 7C OOOCE 11$:  CLRQ -=(SP) > 3663. 
000000006 00 92 FB 00000 CALLS #2, PATSOPEN_COMFIL : 
4 11 00007 128: BRB ; | 
52 000000006 00 09 000D9 13$:  MOVL §PATSGL_HEAD_LST, POINTER : 3671 
7E 13 QO0EO 14$:  BEQL 24$ : 3672 
01 pp 00E2 PUSHL #1 : 3675 
7E 04 Ag D OO0E4 mova 4 (POINTER) -(SP) : 
000000006 00 03 FB O00E8 CALLS #3 SDEFINE SYM : | 
2 62 DO OOODEF MOVL (BOINNERS POINTER ; 3676, 
EC 11 000F2 BRB 14$ : 672 
02 40 &8F 88 O00F4 15$: BISB2 #64, PATSGL_CONTEXT+2 : 368 
000000006 00 FB OOOF9 16$: CALLS #0, PATSDEPOSIT_CMD : 3687 


H 15 
PATACT 16-Sep-1984 00:23:1 VAX=11 Bliss 32 V4.0-742 6 
v04-000 18-808-1 3b 08 g3:38 DISKSVMSMASTER: CPATCH.SRCIJPATACT. 832" 79 © 8 
SE 11 00100 BRB 24$ ; | 
01. A? 1 88 00102 17$:  BISB2 #1, PATSGL_CONTEXT+1 : 3691. 
000000006 00 Q Fe : a: CALLS #0. PATSEXAMINE_CMD : 692 
52 000000006 00 b¢ O10F 19$:  MOVL = PATSGL_HEAD_LST, POINTER : 3699, 
6E 1 O16 20$:  BEQL  26$ : 3700. 
01 dd 0011 PUSHL #1 : 3703 | 
D4 OO11A CLRL. = = (SP) : | 
04 Ad 9F O011C PUSHAB 4(POINTER) : | 
000000006 00 03 FB OO11F CALLS #3, PATSOUT_MEM_LOC : 
52 62 DO 00126 MOVL (POINTER), POINTER + 3704 
FB 11 001 9 BRB : 3700 
000000006 60 94 0012B 21$ CLRB PATSGB TAKE_C : 3710) 
51 68 04 €1 00131 BBC PATSGL FLAG 26$ : 3711 
53 000000006 00 0 00135 MOVL PATSGL-INPPTR, ECOLVL_PTR > 3714) 
52 D4 0013C CLRL BIT * LRBER 3: 3715 
12 000000006 09 52 E11 O013E 228 BBC BIT-NUMBER, PATSGL_ECO_UPD, 23$ : 3717 
OE 6 52 £0 00146 BBS BIT” NUMBER (ECOL VC. PTR), 23$ : 3719 
01 ko SF OO14A PUSHAB 1(BIT_N : 3721) 
01 DD 00140 PUSHL #1 : 
00608018 8F DD OO14F PUSHL #7176219 : 
6A 03 FB 00155 ALLS #3, LIB$SI : 
DE 52 0000007F 8F F3 00158 23$:  AOBLEQ #127, BIT_NUMBER, 22$ : 3717 
78 11 00160 24$: B 33$ : 3620) 
000000006 00 9F 00162 25$: | PUSHAB LIBS$GET_INPUT ; 3726) 
04 AE OE D0 00168 VL #14, 4(SP) : | 
04 AE 9F 0016C PUSHAB 4(SP) ; 
5B DD OO16F HL R11 : 
000000006 0° 9F 00171 PUSHAB PATS$GL_HELP_LIN : 
7E 04 00177 CLRL -(SP) 3 
000000006 00 9F 00179 PUSHAB LIB$PUT_OUTPUT : 
000000006 00 06 FB 0017F CALLS #6 LBRSOUTPUT _HELP : 
60 11 00186 26$: BRB 36 : | 
50 000000006 00 DO 00188 27$:  MOVL § PAT$GB_MOD_PTR, RO : 3730) 
09 03 AO E8 0018F BLBS  —3(RO) ; | 
O06DBE82 8F DD 00193 PUSHL wrigeio4 : 3732 
6A 01 FB 00199 CALLS LIBS$SIGN : 
02. A7 80 8F 88 0019C 28$:  BISB2 +1580 PATSGL_ MEONTEXT#2 : 3733 
0175 31 OO1A1 BRW 54$ : 3738 
1F 67 £9 O01A4 298:  BLBC = PATSGL_CONTEXT, 308 : 3741 
000000006 00 9F 001A7 PUSHAB PATS$GL~ COMRAB : 3751 
99 AB 9F OOTAD PUSHAB SET MODE _¢ 4 
7E 98 AB 9A 001B0 MOVZBL SH “tmp. -(SP) : 
000000006 00 03 FB 001B4 CALLS. # “RODE ERD, = : | 
01 DD 001BB PUSHL : 3752) 
000000006 00 01 FB 001BD CALLS #1, PATSSET_MOD_LST : 
32 11 001C4 BRB : 3741, 
03 68 ‘ é 001C6 30$: BBC ¥6, PATSGL_FLAGS, 31$ : 3756 
OOF 1 OOI1CA BRY F 
0B 02 A? £9 OO1CD 31$:  BLBC = PATSGL_CONTEXT+2, 348 > 3764) 
01 DD 00101 PUSHL : 3765. 
000000006 00 01 FB 001D3 328: CALLS #1, PATSSAVE_SCOPE : | 
0c 11 QO1DA 3$: BRB : | 
A 02. A? 02 €1 o10¢ 4$: BBC #2, PATSGL CONTEXT#2, 37$ : 3767. 
000000006 00 09 FB 0 1E1 35$: CALLS #0. PATSECO_C : 3768 | 
0135 31 OO1E8 36$: 5 ; 
03 02 A? 03 £0 001EB 37$: BBS #3, PATSGL_CONTEXT+2, 38$ : 3770. 
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| 


OOAE 31 01F0 BRW 45$ ; | 
04 a5 F 1F3 38$: PUSHAB ASE PTR 3: 3773. 
3 dD 186 PUSHL R : 
50 000000006 00 dO O01F OVL PATS$GL_HEAD_LST, RO : 
04 AQ DD OuFF PUSHL  4(RO) : 
000000006 09 8 FB Oe CALLS #3, PATSMAP_ADDR 5 
7B 02 A 1 £1 0020 BBC #1. PATSGL_CONTEXT+2, 44$ : 3799 
22 69 DO 0020E MOVL § PATSGL_PATAREA, R2 ; 3801. 
000000006 00 DO 00211 MOVL § PATSGLHEAD_LST, RO ; 3802 | 
36 04 AO 9E 00218 MOVAB 4(RO),"R : 
5 08 AO 99E 0021C MOVAB 8(RO). R + 3803) 
50 04 AE 14 cI 00 9 ADDL3 #20, ISE_PTR, ISD_PTR : 3809 | 
51 02 ad 3c 00 MOVZWL 2(1SD_PTR), R1 : 3810. 
51 51 09 7 00229 ASHL #9, RT, R1 : 
50 04 AO 09 7 002 D ASHL. #9. 4(ESD_PTR), RO + 3811 
50 66 C2 00232 SUBL ,R : 
53 51 50 C1 00235 ADDL RO, R1, AVAIL _BYTE_CNT : 
0c 53 D1 00239 CMPL  AVAIL_BYTE_CNT, #12 ; 3813) 
14 18 0023C BGEG = : | 
53 DD 0023E PUSHL AVAIL_BYTE_CNT + 3815) 
66 DD 00240 PUSHL (R6) ; 
02 DD 00242 PUSHL #2 : 
006D811A BF DD 00244 PUSHL #7176474 : 
6A 04 FB O0024A CALLS #4, LIBSSIGNAL r 
54 DD 0024D 39$:  PUSHL R4 + 3816 
QOOED 31 0024F BRW 56$ : 
65 D5 00252 40$:  TSTL (RS) + 3820 
05 15 00254 BLEG 46s «418 : 
53 65 D1 00256 CMPL (R5), AVAIL_BYTE_CNT : 
16 15 00259 BLEQ 42$ ; 
65 53 00 00258 41$: MOVL AVAIL_BYTE_CNT, (RS5) : 3822 
62 D5 0025E TSTL (2) : 3823) 
OF 14 00260 BGTR 42$ : | 
7E 65 08 C3 00262 SUBL3. #8, (R5), -(SP) + 3824 
01 DD 00266 PUSHL #1 : 
006D8053 8F DD 00268 PUSHL #7176275 : 
6A 03 FB 0026E CALLS #3, LIBSSIGNAL é 
62 D5 00271 42%:  TSTL (R2) : 3828 | 
0B 14 00273 BGTR 3$ ; 
62 65 08 C3 00275 SUBL3. #8, (R5), (R2) + 3830 | 
04 A2 66 08 C1 00279 ADDL3 #8. (RO), 4(R2) > 3831, 
09 11 0027E BRB 44 : 3828 | 
00608058 8F DD 00280 43$:  PUSHL #7176283 : 3834 | 
6A QI FB 00 86 CALLS #1, LIBSSIGNAL : 
E D4 00289 448: CLRL - : 3838 | 
50 69 D0 00288 MOVL PATS$SGL_PATAREA, RO ; 3839) 
51 60 3C O028E MOVZWL ; 
04 B041 9F 00291 PUSHAB @4(RO)CR1] : 
AQ DD 00295 PUSHL 4 : 3838 
00000000G 00 0 FB 00298 CALLS #3, PATSADD_PAL : 
7F 11 0029F BRB : 3761 
67 95 OO2A1 45$: TSTB PATSGL_CONTEXT > 3843 
7B 18 002A3 BGEQ 55$ ; 
7E D4 002A5 CLRL (SP) > 3844 
000000006 Qi FB OOOA7 CALLS #1, PATSSET_MODULE : | 
11 OO2AE BRB > 3741. 
67 £9 002B0 46$:  BLBC  PATSGL_CONTEXT, 47S : 3849 | 


| J 15 | 
PATACT ~ 
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1 
1 984 DISKSVMSMASTER: CPATCH. SRCJPATACT.B32; 1 
000000006 00 00 FB 0 Bs cas #0, PATSSHOW_DEFAL : 3851) 
0B 48 og E1 00 BC 47$: BBC #6, PATSGL_FLAGS, 49$ + 3854 
Q06DBE82 BF DD 002C0 48s: PUSHL # 4 : 3856 
6A Q1 FB C6 CALLS #1, LIBSSIGNAL : 
09 02 A? €9 002CB 49S: — BLBC PATSGL CONTEXT+2, 50$ : 386 
000000006 00 00 FB i cf CALLS PATS$SSHOW_SCOPE : 386 
2 95 00208 50$: TSTB = PATSGL_CONTEXT : 3865) 
09 18 OO2DA BGEQ $ | ; 
000000006 00 90 FB 00 DC CALLS 36 PATSSHOW_MODULE + 3866) 
36 02 A? 08 E1 00265 51$: BBC PAT$GL_CONTEXT+2, 55$ > 3868 
50 69 bd OO2EA MOVL PAtSGL_P ATAREA, RO : 3871 
7E 60 3¢ OOZED MOVZWL RO), =($p) : 
08 AB 9F 00 FO PUSHAB P.ABI ; 
000000006 00 02 FB O02F CALLS #2, PATSFA : 
50 69 DO OO2FA MOVL PATSGL TPATAREA. RO : 3873 
04 AO DD O0¢FD PUSHL 4( RO) ; 
25 AB 9F 00300 PUSHAB ABJ é 
000000006 00 02 FB 00303 CALLS 4 PAT$FAO_OUT ; 
14 11 0030A BRB : 3849 
000000006 00 00 FB 0030C 52s: CALLS #0, PATSWRTIMG : 3878 
OB 11 00313 BRB ; 
02 A? 20 88 00315 53$: BISB2 #32, PATSGL_CONTEXT+2 : 3882 
000000006 00 00 FB 00319 54$: CALLS #0, PATSREPCACE_CMD : 3883 
04 AC DD 00320 55$: PUSHL S MSP 3; 3904 
00000000v_ EF 01 FB 00323 CALLS #1, WRITE_CMD ; 
50 04 AC DO 0032A MOVL = S§ . ; 3911) 
00000063 B&F 0000000060040 D1 0032 CMPL § PAT$GL_SEMAN1+8CROJ, #99 : 
OA 12 0033A BNEQ 57$ ; 
04 AC DD 0033c PUSHL  SEMSP > 3914 
FC72.~—sCF 01 FB 0033F 56S: CALLS #1, PATSEND_OF_LINE : 
OC 11 00344 BRB 58$ : 3915 
04 AC DD 00346 57$: | PUSHL SEMSP : 3918 
FADB CF 1 FB 00349 CALLS #1, PATSEND_OF_CMD ; 
50 1 DO 0034 MOVL #1, RO : 3920 
04 00351 RET F 
50 04 00352 58$: CLRL ~— RO : 3921 
04 00354 RET 3 


; Routine Size: 853 bytes, Routine Base: _PATSCODE + 01D7 
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; 883 922 1 GLOBAL ROUTINE WRITE CHD (SEMSP) : NOVALUE = | 
; 884 9 1 
; 885 924 1 !44 
3 4] 4 5 ; } FUNCTIONAL DESCRIPTION: 
; 888 9 ; 1 | This routine builds the command Lines for the output command file 
; 889 928 1! and the appended patch command text. The command has already been 
; 890 929 1! executed successfully, the command verb is on the stack, and the | 
; 891 930 1! parameters are in the parameter List. The routine PATSWRITEFILE does 
3 o36 ws) 3 all the output to the command file and to the text buffers. a 
; 89 836 1! command file is not being created, then the commands are only entered 
; 894 933 1! in the text buffers. 
; 895 934 1! | 
; 896 33% 1 ! CALLING SEQUENCE: 
; 897 936 1! 
; 898 $a%5 1! WRITE_CMD (SEMSP) 
: 899 938 1! 
: 900 3939 1 ! INPUTS: 
; 901 3940 1! ; 
; 902 3941 1! SEMSP - Offset in parse stack which holds current verb token 
; 903 2308 1! 
: 904 394 1 ! IMPLICIT INPUTS: 
; 905 3944 1! 
: 906 3945 1! none 
; 907 3946 1! 
; 908 3947 1 ! OUTPUTS: 
; 909 3948 1! 
; 910 3949 1! NONE 
; 911 3950 1! 
; 912 3951 1 ! IMPLICIT OUTPUTS: 
; 913 s326 1! 
3; «©9146 3955 1! none 
; PIS 3954 1! 
; 916 3955 1 ! ROUTINE VALUE: 
; 917 3956 1! 
; 918 3957 1! NONE 
: 919 3958 1! 
: 920 3959 1 ! SIDE EFFECTS: | 
s 9el 3960 1! : ‘ 
s Pee 3961 1! A PATCH command is entered into the appended command text buffers 
: 923 3962 1! and written to the output command file, if one is being created. 
: 924 39635 1! 
: 925 3964 1 !<- 
3 366 965 1 
: 927 966 2 BEGIN 
; 928 967 2 
; 36> 3968 LITERAL * 
; 930 3969 BLANK _FILL = %X'20'; ! Ascii value for space 
: 931 970 
3 236 971 LOCAL : bo 
: 93 +4 ALIGN QUAL OFF, ! Offset into ALIGN qualifier table : 
: 934 397 COMMAND _BUF : VECTORCNO_OF_INP_CHARS,BYTE], ' Buffer for output of command Line to file 
; 935 974 COUNT; !' Counter for scope name loop 
; 936 975 
3: 937 1d '++ 
; 938 97 ! Execute the complete command. 
; 939 978 leo 


15 
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14-Sep-1984 12:52:2 Disk SKSVMSMA 


.0-742 30 
TER: CPATCH.SRCJPATACT. B32: (6) | 


940 979 IF PATSGB_EXEC_CMD 

34 381 CASE .PATSGL_SEMAN1 C.SEMSP] FROM ALIGN_TOKEN TO VERIFY_TOKEN OF 
944 98 SET 

945 984 

946 985 CALIGN_TOKEN): 

947 986 

948 987 CHSCOPY(. ALIGN. CMDCOJ, ALIGN_CMDC1), BLANK_FILL, 

949 988 ALIGN-CMDCO], CHSPTR(COMMAND_BUF,~0)); 

950 989 IF .PATSGL CONTEXT ALIGN_BYTEJ 

951 990 THEN 

9¢ 991 ALIGN_QUAL_OFF = 0 

95 99 ELSE 

954 99 IF .PAT$GL_CONTEXTCALIGN_WORDJ 

955 994 THEN 

956 995 ALIGN_QUAL_OFF = ALIGN_QUAL_LNG 

957 3996 ELSE 

958 3997 IF .PATSGL_CONTEXTCALIGN_LONGJ 

959 3998 THEN 

960 3999 ALIGN_QUAL_OFF = ALIGN_QUAL_LNG*2 
961 4000 ELSE 

962 4001 IF .PATSGL_CONTEXTCALIGN_QUAD] 
963 400 THEN 

964 400 ALIGN_QUAL_OFF = ALIGN_QUAL_LNG*3 


ELSE 
ALIGN_QUAL_OFF = ALIGN_QUAL_LNG*4; 
CHSCOPY(AL IGN. QUAL =LNG, “wor QUAL_TBCC.ALTGN_QUAL_OFFJ, 


“FILLS ALIGN LNG; 
UeACTON: opr ie 


oO 
o 
oa 
- 
So 
o 
“ 
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969 4008 CHSPTR(C COMMAND pur 

970 4009 PATSURITEFILEC. ALIGN_CAD Fils GUAL_LNG, 

971 4010 CHSP TR R COMMAND _BUF, oy- PATSGL_COMRAB) ; 

972 4011 PATSWRITE_NAME (. SEMSP 

973 401g END; 

974 401 

975 4014 CCANCEL_TOKEN): 

976 4015 

977 4016 SELECTONE TRUE OF 

978 4017 SET 

979 4018 

980 4019 C.PATSGL CONTEXTCPAT_AREA_B1T]3: 

982 4021 PATSWRITEFILE(.CANCEL_PAT_CMDCOJ, CANCEL_PAT_CMDL1], PATSGL_COMRAB); 
983 403¢ END; 

984 402 

985 4004 [ .PATSGL_CONTEXTCMODE_BITJ): 

987 1056 PATSWRITEFILE(.CANCEL_MODE_CMDCO], CANCEL_MODE_CMDL1], PATSGL_COMRAB) ; 
988 4027 END; 

989 4028 

990 4029 C .PATSGL_CONTEXTCMODULE_BIT]): 

99¢ 4031 IF (.PAT$GL_HEAD_LST NEQU 0) 

99 403¢ THEN 

994 405 BEGIN 

995 4034 PATSWRITEFILE(.CANCEL_MODU_CMDCO], CANCE: _MODU_CMDC1), PATSGL_COMRAB); 
996 4035 PATSWRITE_NAME (. SEMSPY; 


a | - 
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PATSWRITEFILE(.EXIT_CMDCOJ, EXIT_CMDCL1], PATSGL_COMRAB) ; 
ELSE ’ 
ink PATSWRITEFILE(.CAN_MOD_ALL_CMDCOJ, CAN_MOD_ALL_CMDC1], PATSGL_COMRAB); 
C.PATSGL_CONTEXTCSCOPE_BITJ]: 
SE ene vir OLAS CANCEL SCR OBERA. CANCEL_SCO_CMDLiJ, PATSGL_COMRAB) ; 


<v 


Sessesssess 


FUN O OONOUVU EWN “OC OOVNOUS WN" O0ON 


TES; 
CCHECK_TOKEN): 
i -PAT$GL_CONTEXTCSET_NOT_ECO) 


PATSWRITEFILE(.CHECK_N_ECO_CMDCOJ, CHECK_N_ECO_CMDC1], 
PATSGL_COMRAB) 


PATA TE? ELEN SET SE ECO_CMDCOJ, CHECK_ECO_CMDC1], 


$GL_COMRAB) ; 
PATSWRITE_EXP1(.SEMSP); 
PATSURITEPILE (EXIT CROCOJ. EXIT_CMDC1], PATSGL_COMRAB) ; 


Ss 


ELSE 


CREATE, TOKEN]: 


CDEF INE_TOKEN): 
BEGIN 


EF INE CHOCO], DEFINE_CMDC1J, PATSGL_COMRAB) ; 
XIT_CMDCOJ, EXIT_CMD{[1], PATSGL_COMRAB) ; 


CDELETE_TOKEN}: 


CHSCOPY(.DELETE_CMDCO], DELETE_CMDC1), BLANK_FILL, 
“DELETE -CMDCO}, CHSPTRTCOMMAND BUF, 0)); 

PATSGET_COMQUALT COMMAND BUF, .DELETE_CMDCOJ, .SEMSP); 

PATSWRITE_INS(.SEMSP); 

PATSURITEFILE (EXIT CHOCO, EXIT_CMDC1], PATSGL_COMRAB); 


lolelelelelelolololelelelololelelolelololelelelol oo) 
WAAR POPUNIPUNIPONNUNY 2 SS 


on 


oooo 
Www 


CDEPOSIT_ TOKEN): 


CHSCOPY(.DEPOSI 

-DEPOSI 
PATSGET_COMQUA 
PATSWRITE_INS(. 
PATOURI TEP ELEC. 


CEKARINE TOKEN}: 


CEVALUATE_TOKEN): 


, DEPOSIT_CMDC[1], BLANK FILL, 
CHSPTR(COMMAND BUF, OJ); 
6_BUF, .DEPOSIT_CMDCO), .SEMSP); 


MOCO], EXIT_CMDC1], PATSGL_COMRAB); 


0] 
0J 
AN 


RRRERELKEK 
WN —OOBNOUEWN OC OONn 


ee ee ee ee ee ee ee ee 


oooo 
MA 


PATA 


04 
3; 3 
3 1 
e 1 
a 1 
3; 7% 
37 
3; 7 
3 7 
oO 1 
:% 
3; 7 
3 7 
3 
oO 1 
3; 3 
3 3 
3 3 
3; 
3 7 
3 1 
3 3 
3; 7 
oe 1 
3 7 
2: 3 
* 1 
a: Y 
3 3 
° 1 
; } 
3 3 
3 7 
3 3 
3 % 
3 % 
3 
3 Y 
3 
3% 
2,7 
: 
3 3 
3 7 
3% 
, 7 
; 7% 
3 7 
3; 7 
3; 1 
2; 7 
3 
3, 3 
3 7 
2 3 
3; 7 
3 7 
5 9 


eg 
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< 
i 
wr OO 
&- 
= 
oO 
~o 
Ww 


0; 


CEXIT = TOxENI: 
PATSWRITEFILE(.EXIT_CMDCOJ, EXIT_CMDC1], PATSGL_COMRAB) ; 


svtatiathe “Was 


folejelelo) 
VI 


oo 
oO 


CINSERT “penynes 


Sates 
Fun “oO 0Onou 


Oo 
o 


INSERT cnt) BLANK FILL, 
CHSPTRTCOMMAND_BUF, 0)) 
D_BUF, SENSERT PemDEO]. temp); 


hocol, EXIT_CMDC1], PATSGL_COMRAB) ; 


PATSWRITE_ INS ( 
PAT SURE FF U8 


CREPLACE ree 


CHSCOPY(. A a -CMDCOJ, REPLACE _CMDC1], ane FILL, 
-REPLACE_CMDLOJ, CHSPTR (COMMAND 

PATSGET COMQUAL(” COMMAND BUF, REPLACE  eMDeOI. . SEMSP) ; 

PATSWRITE_INS(.SEMSP) ; 

PATSURITEFILE -EXIT_CMDCOJ, EXIT_CMDC1], PATSGL_COMRAB) ; 


COooooooo°oo 
COONOUSWN—-"ODOOnOu 


ANN 


CSET_TOKEN]: 
SELECTONE TRUE OF 
SET 


2 00 00 G9 Co Co 
MEW Oo 


C.PATSGL_CONTEXTCSCOPE_BITJ]: 
PATSOL BUF SiZ's SET ~5C0_ CMDCO], SET_SCO_CMDC1], PATSGL_COMRAB) ; 
PATSEP OUT “STR = CHSPTR (COMMAND BUF, 0); 


COUN 
UHILE <PATSGL_ CSP_PTRE .COUNT J NEQA 0 


oOoooooc[oo 


ooo 
SZSISISSES 


ooo 
ooo 


BEGIN 
PATSEAO ry tsee NAM_CMD, .PATSGL_CSP_PTRC.COUNT)); 
COUNT =".COUNT # 1; 


END; 
PATSURITEFILE(. -PATSGL_BUF_SI1Z, COMMAND_BUF, PATSGL COMRAB); 


3233 


C.PATSGL SOUTERTCSET EcO}): 


PATSWRITEFILE(.SET ECO_CMDCOJ, SET_ECO_CMDCL1], PATS$GL_COMRAB) ; 
paren oe EXP1(.SEMSP)? 


CPATSGL  CONTEXTCMODE B11): 
PATSURITEFILE( EXIT CMDCOJ, EXIT_CMDC1], PATSGL_COMRAB) 


PRIMRIAIPEPONIWIIIRININIWIA & & BAIN WI WAIAIIRIIPONI PINION WWI WINNIE NIN WWIII nnononononononory 


aed ed cd el ed ed cd ee enh ee et et ce ed ee ee ee a ce ee ce ee et ee ee ee ee ee ee ee et ee ee ee ee ce el ee ee et ee ed ed 
OWNOA NEW CO OD NO UNE WIN 9 OODNOAOU EWN — CO OONOU EWN OO OONOY EWR —O 


yo oF oY oF oF oF oF ot ot ot ot ot ot et et ot et et et tk kk ek et kk ak tek ek tt et et 2k ttt 
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ed ed ed et = 
SSRVESRENLES 
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1 C.PATSGL CONTEXTCPAT_AREA_B1133: 
18 IF (.PATSGL_CONTEXTCINIT_PAT_BITJ) THEN 
14 BEGIN 
15 LOCAL 
6 OUTPUT_BUFFER : BLOCK (132, BYTE); 
18 PATSCP_OUT_STR = CHSPTR (OUTPUT_BUFFER, 0); 
19 CHSCOPY (SET PAT CHDEOI, SET_PAT_CMDC1], BLANK_FILL, 
0 ~SET-PAT-CMDLOJ, CHSPTR TCOMMAND Bur. 0)); 
1 PATSGET_COMQUAL (COMMAND.BUF, .SET_PAT_CMBLOJ, .SEMSP); 
¢ PAT$GL_BuF_SIZ = 0; 
PAT$SCP-OUT-STR = CHSPTR (OUTPUT_BUFFER, 0); 
4 PATSOUT_PAC_EXP (.LIST_ELEM_EXP2 (.PATS$GL_HEAD_LST), 0); 
$? PATSWRITEFICE (.PATS$GL_BUF_SIZ, OUTPUT_BUFFER, PATSGL_COMRAB) ; 
6 PATS$SGL_BUF_SIZ = 0; 
27 ATSCP-OUT-STR = CHSPTR (OUTPUT_BUFFER, 0%, 
28 PATSOUT_PAC_EXP (.LIST_ELEM_EXPT (.PAT$GL_HEAD_LST), 0); 
4 paTsuni Ter ICE (.PAT$GL_BUF_$IZ, OUTPUT_BUFFER, PATSGL_COMRAB) ; 
31 ELSE 
3¢ BEGIN 
PATSWRITEFILE(.SET PAT_CMDLOJ, SET_PAT_CMD(1], PATSGL_COMRAB); 
PATSWRITE_EXP1(.SEMSP)? 
END; 
END; 


[.PATSGL CONTEXTCMODULE 81133: 
IF (.PATSGL_HEAD_LST NEQU 0) 
THEN 


GIN 
PATSWRITEFILE(.SET MODU_CMDCOJ, SET_MODU_CMDL1J, PATSGL_COMRAB); 
PATSWRITE_NAME(.SEMSP) ; 
PATSWRITEFILE( .EXIT_CMDCOJ, EXIT_CMDL1J, PATSGL_COMRAB); 
ELSE 
“ss PATSWRITEFILE(.SET_MOD_ALL_CMDCOJ, SET_MOD_ALL_CMDL1], PATSGL_COMRAB) ; 


TES; 
Csn0u_ Foren? 


CUPDATE_TOKENJ: 
PATSWRITEFILE(.UPDATE_CMDCOJ, UPDATE_CMDC1], PATSGL_COMRAB) ; 


CVERIFY_ TOKEN): 
GIN 


OOO OOO 00000 00 WW 09 SIS NII NNN NN NIA FAA AAAAAA MAMAN 
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9 
3 
9 CHSCOPY(. VERIFY. CMDEO], VERIFY_CMD[1), BLANK_FILL, 
1 0 *VERIFY-CMDCO], CHSPTR7COMMAND_BUF : 
; 0 PATS$GET_COMQUALT COMMAND RI'’, .VERIFY_CMDLOJ, .SEMSP); 
0 PAT$WRITE_INS(.SEMSP) ; 
4 0 PATSWRITEFILE(EX1T_CADCOI, EXIT_CMDL1], PATSGL_COMRAB); 
6 0 ? 
7 0 COUTRANGE): 
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D 16 
PATACT 16-Sep- VAX=-11 Bliss-32 V4.0-742 ge 35 
(04-600 14- oben 1384 90: 3: 8 DISKSVMSMASTER: CPATCH. SRCJPATACT. B32, 79 (6) 
59 DD 0094 PUSHL 9 : 4009 
FF7C CD OF 9 PUSHAB COMMAND_BUF ; 4010 
04 Ag 9F OOOA PUSHAB ; 4009 
68 9 FB OOOA CALLS #3, PATSWRITEFILE : 
7 DD OOAg PUSHL + 4011 
000000006 00 01 FB OOOA CALLS #1, PATSWRITE_NAME ; 
04 OOOAF RET + 3981 
0B 02 AA 93 £1 90080 9$: BB #3, PATSGL_CONTEXT+2, 10$ > 4019 
9 DD 0008 PUSHL 9 + 4021 
9 AB 9F 00087 PUSHAB CANCEL_PAT_CMD+1 | ; 
7E 90 A& 9A OOOBA MOVZBL CANCELPATCMD, =(SP) : 
40 11 0008 BRB 15$ et 
OD 6A £9 00¢ 10$:  BLBC = PATSGL_CONTEXT, 11$ + 4026 
59 DD 000C¢ PUSHL R9 + 4026 
FF7E C8 9F OO0C PUSHAB CANCEL_MODE_CMD+1 : 
7E FF7D C8 9A 000C9 MOVZBL CANCEL “MODE =CMD, -(SP) ; 
30 11 OO0CE BRB 15$ : 
6A 95 00000 11$: TSTB PATSGL_CONTEXT : 4029 
1— 18 00002 BGEQ : 
000000006 00 D5 000D4 TSTL | PATSGL_HEAD_LST + 4031 
OB 13 OOODA BEQL 12$ ; 
59 od 0000C PUSHL R9 + 4034 
83 AB SF OOODE PUSHAB CANCEL_MODU_CMD+1 : 
7E 82 A8 9A O00E1 MOVZBL CANCEL ~MODU_ CMD, -(SP) a 
4C 11 O000ES BRB 20$ F 
59 DD OOOE7 12$ PUSHL R9 + 4039 
8B AS 9F OO0E9 PUSHAB CAN_MOD_ALL_CMD+1 : 
7E 8A AS 9A OOOEC MOVZBL CAN_ MOD “ALL_ “CMD, -(SP) : 
OE 11 OOOFO BRB j 
01 02 AA €8 OOOF2 13$: BLBS PAT$GL_CONTEXT+2, 14 : 4042 
04 000F6 RET F 
59 DD OOOF7 14%: | PUSHL 9 + 4044 
98 A&B 9F OOOF9 PUSHAB CANCEL_SCO_CMD+1 é 
7E 97 AB 9A OOOFC MOVZBL CANCEL~SCO~CMD, -(SP) ; 
01¢2 31 00100 15$:  BRW 43$ : 
0B 6A 01 £1 00103 16$: BBC #1, PATSGL_CONTEXT, 17% : 4050 
59 DD 00107 PUSHL 9 + 4052 
AS A8 9F 00109 PUSHAB CHECK_N_ECO_CMD+1 ; 
7E AG A&B 9A 0010C MOVZBL CHECK_N N_ECO_ CMD, -(SP) : 
09 11 00110 BRB 18$ : 
59 DD 00112 17$: | PUSHL  R9 > 4055 
AF AB 9F 00114 PUSHAB CHECK_ECO_CMD+1 : 
7E AE A8 9A 00117 MOVZBL CHECK-ECO CMD, -(SP) 3 
6B 03 FB 0011B 18$ CALLS #3, PATSWRITEFILE ; 
DD 0011 PUSHL R7 : 4057 
000000006 00 01 FB 90120 CALLS #1, PATSWRITE_EXP1 
0192 31 00127 BRW 42$ : 4058 
59 DD 0012A 19$ PUSHL 9 + 4066 
BS AB OF 0012C PUSHAB DEFINE_CMD+1 F 
7E B4 AB 9A 001 F MOVZBL DEFINE~CMD, -(SP) ; 
0140 31 00133 208: BRW 4 : 
56 B8 A8 9A 00136 21$:  MOVZBL DELETE_CMD, R6 ; 4073 
FF7C CD BY A8 56 28 Bat A MOVC 8 DECETE _CMD+1, COMMAND _BUF ; 4074 
25 11 00141 BRB 25§ > 4075 
56 BD AB 9A 00143 228: MOVZBL DEPOSIT_CMD, R6 : 4082 
FF7C 6D BE A8 56 28 00147 MOVC Rb DEPOSIT’ CMD+1, COMMAND_BUF : 408 
18 11 0014E 25$§ ; 4084 


——————————————— 
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7E DF AB 

0091 
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O0F3 

03 02 AA 03 
0090 

56 FF AB 

76 02 AA 01 
000000006 00 6E 
FF7C CD 64 56 
7E 56 

FF7C = CD 

00000000v EF 03 
000000006 00 

000000006 00 GE 

50 000000006 06 

08 Ad 
000000006 00 02 

04 AE 
000000006 99 

48 0 
000000006 00 

gE 
00 
AO 
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RN OS OOo Oe BE BRE EHH 0000 CHMOD 


COOOCOCOOCOOOCOCCOCOSCOOCOCOCOCOCOCOOGOOOCOOOCSOCCOCOOOOCOOOOCOOOOCOOOOOOOCOO 
OODMOOWO> NVINGD 


18-Sep-1984 90:83: 


14-Sep-19 


é 
covey 
MOVC 
BRB 


aveee 
MOVC 
BRW 


X-11 Bliss-32 V4.0-74 
SKSVMSMASTER: CP 


$ VA 
DI 

SERT_CMD, R6 

INSERT_CMD+1, COMMAND_BUF 


LACE_CMD, R6 
REPLACE_CMD+1, COMMAND_BUF 


SGL_CONTEXT+2, 29% 


SCO_CMD+1 


N 

rT 

= 

i$ 

AT 

9 
ET_SCO_ 
ETISCORCHD, =(SP) 
A 

0 

0 

A 

R 

8 

R 

C 


T$GL_CSP_PTR, RO 
0) EeOUNTI 


$ 

0) CCOUNTI 
O_NAM_ CMD 

#2, PATSFAO_PUT 
COUNT 


1 
2 
I 
R 
2 
R 
R 
4 
Pp 
R 
S 
S 
a 
Pp 
C 
C 
P 
( 
2 
( 
S 


RY 
COMMAND _BUF 
#2, PATSGL_CONTEXT+2, 308 


SET_ECO_CMD+1 
SETTECO-CMD, -(SP) 


PATSGL_CONTEXT, 318 
os PATS$GL_CONTEXT+2, 32$ 
SET_PAT_CMD, R6 
#1, PATSGL_CONTEXT+2, 34$ 
OUTPUT BUFFER, PATSCP_OUT_STR 
. SET_PAT_CMD+1, COMMAND_BUF 
R6, (SP) 
COMMAND _BUF 
#3, PATSGET_COMQUAL 
PATSGL_BUF SIZ 
OUTPUT _BUFFER. PATSCP_OUT_STR 
PAT$GL_HEAD_LST, RO 
(RO) 


#2, PATSOUT_PAL_EXP 
R9 


BUF _S 
OUTPUT-BUFFER, PATSCP_OUT_STR 
PATSGL_HEAD_LST, RO 
#2, PATSOUT_PAL_EXP 
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F 
PATACT 16-Sep-1984 23:1 VAX-11 Bliss-32 V4.0-742 Page 37 
v04=600 1o-38- 1382 99:43:38 DISKSVMSMASTER=CPATCH.SRCIPATACT.B32:1> (6) 
59 DD 00 43 PUSHL R9 : 4168 
04 Ar 9F 0024 PUSHAB OUTPUT_BUFFER : 
000000006 9 DD 0 48 33$: PUSHL PATS$GL~BUF_SIZ ; 
§ 11 4 BRB 43$ ; 
0340 8F BB 00250 34$: PUSHR #*M<R6,RB,RI> : 4172 
6B 03 FB 00254 35$: CALLS #3, PATSWRITEFILE ; 
57 DD 00257 PUSHL R + 4173 
000000006 00 01 FB 00259 CALLS #1, PATSWRITE_EXP1 : 
04 00 60 RET + 4121 
6A 95 00261 368: TSTB - PATSGL_CONTEXT + 4177 
63 18 00263 BGEQ ; 
000000006 00 D3 90265 TSTL | PATSGL_HEAD_LST + 4179 
17 13 00268 BEQL 38% : 
59 DD 0026D PUSHL R9 + 4182 
EB AB OF O026F PUSHAB SET_MODU_CMD+1 ; 
7E EA AS 9A 00272 MOVZBL SET MODY CMD, =-(SP) : 
68 03 FB 00276 378: CALLS #3, PATSQRITEFILE : 
57 DD 0979 PUSHL  R7 + 4183 
000000006 00 01 FB 0027B CALLS #1, PATSWRITE_NAME ; 
38 11 00282 BRB 42$ + 4184 
59 DD 00284 388: PUSHL 9 + 6187 
F3 AB OF 00286 PUSHAB SET_MOD_ALL_CMD+1 ; 
7E F2 AB 9A 00289 MOVZBL SET-MOD-ALL CMD, -(SP) ; 
36 11 0028D BRB 43$ : 
59 DD 0028F 398: PUSHL R9 + 4195 
20 AB 9F 00291 PUSHAB UPDATE_CMD+1 ; 
7E 1F AB 9A 00294 MOVZBL UPDATE~CMD, -(SP) ; 
2B 11 00298 BRB 43$ ; 
56 27 AS 9A 0029A 40$:  MOVZBL VERIFY_CMD, R6 : 4199 
FF7C CD 28 AB 56 28 0029E MOVC3 6, VERIFY.CMD+1, COMMAND_BUF + 4200 
7E 56 7D 002A5 41$: MOV R6. -(SP) + 4201 
FF7C CD 9F O02A8 PUSHAB COMMAND BUF : 
00000000v_ EF 03 FB OO2AC CALLS #3, PATSGET_COMQUAL ; 
57 DD 00283 PUSHL 7 + 4202 
000000006 00 01 FB 00285 CALLS #1, PATSWRITE_INS : 
59 DD 002BC 42$:  PUSHL RY + 4203 | 
C7 AB 9F OO2BE PUSHAB EXIT_CMD+1 ; 
7E (6 AB 9A 002C1 MOVZBL EXIT~CMD, -(SP) ; 
6B 03 FB 002CS 43$ CALLS #3, PATSWRITEFILE ; 
04 002CB8 44$ RET + 4211 


3; Routine Size: 713 bytes, Routine Base: _PATSCODE + 052C 


18-58-1984 00:93:16 VAX-11 Bliss 


-32 V4.0-7 
14-Sep-1984 1 DISKSVMSMASTER 


0-742 Page 3 
:CPATCH.SRCJPATACT.B32;1 (7) 


: 1128 Pr \¢ ! GLOBAL ROUTINE PATSSET_OVERS (LEVEL, TOKEN) : NOVALUE = 
; 1176 4214 1 !44 
: We : i } FUNCTIONAL DESCRIPTION: 
: 1179 4 i$ ii Sets OVERRIDE or LOCAL modes by setting the new mode level, and 
; 1180 4 18 1: then setting the mode itself. 
3; 1181 4219 1! 
; 1386 4220 1 ! CALLING SEQUENCE: 
3; 118 4221 1! 
> 1184 4 ; 1 i PAT$SET_OVERS () 
; 1185 4 § 1! 
3 1186 4224 1 ! INPUTS: 
3; 1187 4225 1! 
; 1188 4226 1! LEVEL - Level of modes to set. 
3; 1189 4227 1! TOKEN - Mode token to be set in the mode stack 
; 1190 4228 1! 
3 1191 $56 1 ! IMPLICIT INPUTS: 
: 1136 4230 1! 
3 119 4231 1! none 
3 1194 osee 1! 
3 1195 423 1 ! OUTPUTS: 
3 1196 4234 1! 
3 1197 4235 1! none 
3: 1198 4236 1! 
3; 1199 4237 1 ! IMPLICIT OUTPUTS: 
3; 1200 4238 1! 
: 1201 4239 1! none 
; 1202 4240 1! 
3: 1203 4241 1 ! ROUTINE VALUE: 
: 1204 oat 1! 
3; 1205 4243 1! NOVALUE 
> 1206 4244 1! 
3; 1207 4245 1 ! SIDE EFFECTS: 
; 1208 4246 1! : 
3; 1209 4247 1! The appropriate modes are set. 
: 1210 4248 1 !-- 
3 1211 4249 1 
: 1212 4250 2 BEGIN 
> 1213 4251 2 PATSSET_MOD_LVL (.LEVEL); 
3: 1214 4252 2 PATSSET_NEW_MOD (.TOKEN); 
3: 1215 4253 1 END; 
0000 00000 -ENTRY PATSSET_OVERS, Save nothing : 4212 
04 AC DD 00002 PUSHL L : 4251 
00000000G 60 01 FB 00005 CALLS #1, PATSSET_MOD_LVL 2 
00000000G 00 ” Of PB S008 CALLS #1, PATSSET_NEW_MOD : — 
04 00016 RET : 4253 


Routine Size: 23 bytes, Routine Base: _PATSCODE + O7F5 
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-742 Page y 
W SACIPATACT.B32047" (b> 


GLOBAL ROUTINE PATSSET_COMQUAL (QUAL_OFFSET) : NOVALUE = 
'o4¢ 


i FUNCTIONAL DESCRIPTION: 


PAT$GL_COMQUAL, 


Sets a bit in the command qyes trier Lonqword 
ier specified. These bits are used tec 


athe ee ag My the quali 


NNSA AARAAAAAOOUIMININIVIN 


SIDE EFFECTS: 
The appropriate bit is set. 


4254 
18 4255 
19 4256 
0 4257 
1 4258 ! 
¢ 4259 ! 

2 4260 ! i 

24 4261 ' reconstruct e command Line for the output command file and the 

$2 és ¢ } appended patch text. 

e7 4264 ' CALLING SEQUENCE: 

28 4s 5 ' 

¢3 4 : ! PATSSET_COMQUAL( QUAL_OF FSET) 

31 t5 8 ' INPUTS: 

32 4269 ! 

33 4270 : QUAL _OF FSET - Offset to position in parse stack which contains 
4271 ! the qualifier 
os'¢ ! 

427 ! IMPLICIT INPUTS: 
4274 ! 

4275 ! none 
4276 ! 

4277 ! OUTPUTS: 

4278 ! 

4279 ! none 
4280 ! 

4281 ! IMPLICIT OUTPUTS: 
4282 ! 

4283 ! none 
4284 4 

4285 !' ROUTINE VALUE: 
4286 ' 

4287 ! NOVALUE 
4288 ! 

4289 ! 

4290 ! 

4291 ! 

$536 ! 

429 

429 

42 


HRD RBAA DADA NID ES EE ESE EE EAA 


PoPonononononononongNnoNgNONUNONOA) 2 2 9 2 9 


4 BEGIN 
4295 
96 ++ 
4297 ! The command qualifier table is a stream of bytes. Each entry consists of two 
4298 ! bytes. The first byte is the token value for the qualifier (which is the 
4299 ! value on the parse stack). The second byte is the corresponding bit number 
£309 to be set in the command qualifier longword, PATSGL_COMQUAL. 
430 BIND 
430 COM_QUAL_TABLE = UPLIT BYTE ( 
4304 INSTRUCTI_TOKEN, INSTR_QUAL, 
4305 DECIMAL TOKEN, DECIMAL_QUAL, 
69 4306 WORD_TOREN, WORD_QUAL, 
70 4307 BYTE TOKEN QUAL, 
71 4308 PATCR_ARE_TOKEN, PATCH_QUAL, 
72 4309 NOINSTRUC”" TOKEN, NOINSTR_QUAL, 
73 4310 LONG_TOKER, LONG_QUAL, 


16 
15-Sep-1984 90:43:] VAX-11 Bliss-32 V4.0-742 Page 40 
14-Sep-1984 12:52:2 DISKSVMSMASTER: CPATCH.SRCIJPATACT.B32;1 (8) 
3 1 4311 HEXADECIM_TOKEN, HEX_QUAL, 
> 1275 4 1g ASCII_TOKEN, ASCII_QOAL 
: 127 431 NOASCTI_TOKEN, NOASCII QUAL, 
: 127 4314 OCTAL_ TOKEN TAL » 
: 1278 4315 LITERAL_TOKEN, LITER_QUAL 
> 1279 4 1 INITIALTZ_TOKEN, INITIALIZE_QUAL 
: 1280 431 ) : VECTORC,BYTEI; 
: 1281 4318 
; 1686 4319 LOCAL 
3 \$o? : $9 TOKEN_INDEX; ! Index into command qualifier table 
3 158? 6338 '++ ; 
; 1286 & ! Loop, so ag the command table for a token matching the one in the 
: 1287 4324 ! parse stack. The corresponding command qualifier bit is set when a match 
3; 1288 4325 ' is found. 
3: 1289 4326 len 
; 1$20 1356 — TOKEN_INDEX FROM MIN_QUAL TO MAX_QUAL*2 BY 2 
; 1592 4329 IF (.COM_QUAL_TABLEC.TOKEN_INDEX] EQL .PAT$GL_SEMAN1C.QUAL_OFFSET]) 
: 1293 4330 THEN 
3 1294 4331 BEGIN 
3 1295 4332 PATS$SGL_COMQUAL C .COM_QUAL_TABLEL.TOKEN_INDEX+1] ] = TRUE; 
: 1296 4333 3 EXITLOOP; 
: 1297 4334 2 ; 
>: 1298 4335 2 RETURN; 
3; 1299 4336 2 
3; 1300 4337 1 END; 
.PSECT _PATSPLIT,NOWRT,NOEXE,0 
1B 06 1F OS 26 04 2D 03 15 O02 31 OF 16 OO 1C 00119 P.ABK: .BYTE 28, 0, 22, 1, 49, 2, 21, 3. 45. 4, 38, 5. -: 
OC 32 OB 1E— CA 2A 09 24 08 14 07 00128 31, $5 27, 7, 20, 8. 36. 9. 42, 16, 36, - : 
COM_QUAL _TABLE= P.ABK 
PSECT _PATSCODE,NOWRT,2 
0004 00000 ENTRY PATSSET_COMQUAL, Save R2 > 4254 
51 04 AC 00 00002 OVL QUAL_OFFSET, R1 : 4329 
50 D4 00006 LRL TOKER_ INDEX 3 
0000000060041 00000000'EF40 08 00 ED 00008 1$: CMPZV 0, #8, COM_QUAL_TABLECTOKEN_INDEX], - : 
PATSGL. SEMANILR1J : 
11. 12 00017 NEQ 2s 
52 00000000'EF40 9A 00019 MOVZBL COM_QUAL_TABLE+1CTOKEN_INDEX], R2 3: 4332 
07 00000000G 00 52 Xi 464) R2, PATSGL_COMQUAL, 53$ ; 4331 
FFD8 50 02 18 F1 BOO Ga ¢: ACBL #24, #2, TOKEN_INDEX, 1$ : 4329 
04 00030 3$: ET : 4337 


3; Routine Size: 


49 bytes, 


Routine Base: 


_PATSCODE + 080C 
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Page 
CIPATACT.B32;1 ( 


H : Re : 3 ! GLOBAL ROUTINE PATSGET_COMQUAL (COMMAND_BUF, COMMAND_SIZE, SEMSP) : NOVALUE = 

: 1304 4340 1 !4+4 

: ! 8? ? 1 ! FUNCTIONAL DESCRIPTION: 

; 1307 8 rk 1} This routine enters the command qualifiers into the command Line 

3; 1308 4344 1! buffer being constructed. The qualifiers are indicated by bits 

; 1309 4345 1! set in the command qualifier indicator longword, PATS$GL_COMQUAL. 

3 1¢19 4 ‘3 ,} The routine writes the command Line to the output command file 

3; 1311 4347 1! after it enters the qualifiers. Note that the command verb has 

3 1318 rt rk } already been entered into the buffer. 

3; 1314 2369 1 ! CALLING SEQUENCE: 

3; 1315 4351 1! 

3 1319 £326 } PATSGET_COMQUAL (COMMAND_BUF, COMMAND_SIZE, SEMSP) 

3; 1318 4354 1 ! INPUTS: 

3; 1319 4355 1! 

; 1320 4356 1! COMMAND _BUF = Address of command Line buffer ; 

: 1321 4357 1! COMMAND _S!ZE - Number of command bytes already entered in the buffer 

: 1322 4358 1! SEMSP - Offset in parse stack to command token 

3 1325 4359 1! 

; 1324 4360 1 ! IMPLICIT INPUTS: 

3; 1325 4361 1! 

; 1326 $308 ' f PAT$GL_COMQUAL = Indicator for qualifiers specified in command 

3; 1327 4365 1! 

: 1328 4364 1 ! OUTPUTS: 

3; 1329 4365 1! 

; 1330 4366 1! none 

; 1331 4367 1! 

3 13352 4368 1 ! IMPLICIT OUTPUTS: 

3; 1333 4369 1! 

: 1334 4370 1! none 

; 1335 4371 1! 

3; 1336 4372 1 ! ROUTINE VALUE: 

3; 1337 4373 1! 

; 1338 4374 1! NOVALUE 

3; 1339 4375 1! 

3; 1340 4376 1 ! SIDE EFFECTS: 

3 1341 4377 1! a: : 

3; 1342 4378 1! The command verb and qualifiers are written to the output command file. 

3 1343 4379 1 !-- 

3: 1344 4380 1 

3: 1345 4381 BEGIN 

3: 1346 $386 

3; 1347 438 MAP 

: 1348 4384 2 COMMAND_BUF : REF VECTORC,BYTE); ! Command Line buffer 
3 1349 4385 2 

; 1350 4386 2 LITERAL * : : 
3; 1351 4387 HYPHEN = 2X'2D'. ! Ascii continuation character ‘iyphen) 
3; 1352 4388 BLANK_FILL = %X'20'; ! Ascii fill character (space) 
3; 1353 4389 

3; 1354 4390 § LOCAL 

; 1355 4391 OM_SIZE, ; : : 
: 1356 $338 § QUACIFIER_BIT; ! Number of qualifier bit 
3 1357 439 

; 1358 4394 2 BIND 


4 
9 


! Number of bytes written into command Line 


1 
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3 4395 CQ_TABLE = UPLIT BYTE ( 

3; 3 4 38 ZASCIC ‘/1° 

: 4 439 ZASCIC */dEC', 

. 4 | ZASCIC ‘/w', 

3: 1 439 ZASCIC '/B' 

: 1 4400 ZASCIC '/PAT’, 

| 4401 ZASCIC '/NOL', 

3; 1 pred ZASCIC ‘/LO', 

3 1 440 ZASCIC */H? 

; 1368 4404 ZASCIC '/AS 

> 1369 4405 ZASCIC */NOAS', 

3 1320 4406 ZASCIC '/0C', 

3: 1371 4407 ZASCIC ‘/LI' 

; 137¢ 4408 ZASCIC '/INIf=" 

; 137 4409 ) : VECTORC,BYTEJ, 
: 1374 4410 2 CQ_OFFSET_TBL = UPLIT BYTE ( 

3; 1375 4411 2 0, 

3: 1376 ze18 2 0+3, 

3 1377 4413 2 0+3+5, 

: 1378 4414 2 0+3+5+3, 

3; 1379 4415 2 0+3+5+3+3, 

; 1380 4416 § 0+34+5+3+5+5, 

3: 1381 4417 0+3454+35+3+5+5, 

: 1382 4418 2 0+3454+3+34+545+4, 

3; 1383 4419 2 0+34+543+3+54+54+44+3, 

3: 1384 4420 2 0+ 34543434545 4443544, 

: 1385 4421 2 0434543454545 444544+6, 

3; 1386 4422 2 043545 +54+3+5454445444644, 

3; 1387 4423 2 0+3+54+354+54+54544435446464444 

: 1388 4424 2 ) : VECTORC,BYTE); 
3; 1389 4425 2 

: 1390 4426 2 

3; 1391 4427 2 !44 

: 1392 4428 2 ! Loop, testing each qualifier bit. If it is set then write the qualifier 
: fad rei? § } into the command buffer and update the size of the command Line. 

3 1395 4431 2 COM_SIZE = .COMMAND SIZE; 

3 1338 ne § pace QUALIFIER_BIT FROM MIN_QUAL TO MAX_QUAL BY 1 

3; 1398 4434 2 IF .PATSGL_COMQUAL C.QUALIFIER_BITJ 

3; 1399 4435 2 THEN 

3; 1400 4436 3 BEGIN 

3; 1401 4437 3 CH$COPY(.CQ_ TABLE C .CQ_OFFSET_TBLC.QUALIFIER BIT) J, 

3 1402 4438 ; CHSPTR(CQ_TABLEL1J, .CO_OFFSET_TBLC.QOALIFIER_BIT)), 
3: 140 4439 LANK_F 

> 1404 4440 3 ~CQ_ TABLE ¢ .CQ_OFFSET_TBLC.QUALIFIER_BIT) J, 

3 1405 4441 3 CHSPTR(COMMAND_BUFCO)],~.COM_SIZE)); 

: 1406 4442 3 COM_SIZE = .COM_SIZE + .CQ_TABLE C 7CQ_OFFSET_TBLC.QUALIFIER_BITI 33 
: 1407 4443 2 END; 

: 1408 4444 

; 1409 4445 '++ : : 

3 1410 4446 ! Check if this is an EXAMINE command. If so, put a continuation character 
3; 1411 4447 ! on the end of the Line. This is due to the special syntax for the EXAMINE 
3 1412 4448 ! command enabling one to examine sequential locations without specifying 

3: 14613 4449 ! the address. 

3 1414 4450 ,e 

: 1615 4451 IF (.PATSGL_SEMANIC.SEMSP] EQL EXAMINE_ TOKEN) 


16 
PATACT 1b-Se -1984 00:23:1 VAX=-11 Oi ieee =-32 V4.0-742 43 
| ¥06-000 ae 09:83 8 DISKSVMSMASTER: CPATCH.SRCIJPATACT. B3264 * 9) 
: 1416 4033 THEN 
: 1417 445 BEGIN 
> 1418 4454 ! weeeee THIS CHSPTR IS HERE TO GET AROUND A COMPILER BUG. 
: 1419 4455 | weeeee IT SHOULD EVENTUALLY BE REMOVED AND BECOME: 
: 1420 4456 ' COMMAND _BUFC.COM_SIZE] = BLANK FILL; 
3 1421 4457 ' COMMAND BUFC.COM-SIZE + 1] = HYPHEN; 
; 14 ¢ 4458 CHSPTR(COMMAND_BOF COM SIZE), 0) = BLANK FILL; 
: 14 4459 CHSPTR(COMMAND BUFL.COM-SIZE], 1) = HYPHER; 
3 1424 4460 COM_SIZE = .COM_SIZE + 2; 
3 1425 4461 D; 
3 1426 te8e 
: 1427 446 lee 
3 i 3 Pree) } Now write out the command verb and qualifiers to the command file. 
: 1430 446 PATSWRITEFILE(.COM_SIZE, COMMAND_BUFCO], PATSGL_COMRAB) ; 
3 1431 RETURN; 
3 1432 END; 
-PSECT _PATSPLIT,NOWRT,NOEXE,0 
49 2F O02 00133 P.ABL: .ASCII <2>\/I\ : 
43 45 44 2F 04 00136 WASCII «<4>\/DEC\ ; 
57 2F O02 00138 ASCII <2>\/W\ : 
42 2F O02 0013€ ASCII <2>\/B\ : 
54 41 50 2F 04 00141 LASCII «<4>\/PAT\ : 
49 4F 4E 2F 04 00146 wASCII <4>\/NOI\ 3 
4F 4C 2F 03 00148 -ASCII <3>\/LO\ 5 
48 2F O02 OO14F ASCII ty? : 
53 41 2F 03 00152 eASCII <3>\/AS\ : 
53 41 4F 4E 2F O05 00156 -ASCII <5>\/NOAS\ : 
43 4F 2F 03 0015C sASCII <3>\/0C\ ; 
49 4C 2F 03 00160 sASCII = <3>\/LI\ : 
30 54 49 4E 49 2F 06 00164 eASCII <6>\/INIT=\ 3 
1fF 1C 18 13 OF OB O08 O03 O00 00168 P.ABM: .BYTE 0 of Od Ris. Pen Che BOs Bee Dis Bta Ste * 8 
CQ_TABLE= P.ABL 
CQ_OFFSET_TBL= P.AB 
-PSECT _PATSCODE,NOWRT,2 
03FC 00000 -ENTRY PATSGET_ COMQUAL, Save R2,R3,R4-R5,R6,R7,R8.-; 4338 
59 00000000" EF 9€E 00002 MOVAB CQ geet sey TBL, R9 : 
58 08 aC DO 00009 MOVL COMMAND stze COM_SIZE s 4431 
56 D4 00000 CLRL QUALIFIER : 4432 
14 000000006 00 56 3 OOOOF 1$: BBC QU If IER “BIT PAT$SGL_COMQUAL, 2$ + 4434 
50 6946 9A 00017 MOVZBL CQ_OF FSET RiQLCQUALIFIER _BITJ, RO + 4437 
57 C8 A940 9A 0001B MOVZBL CQ_TABLECRO), 3 
04 BC48 C9 A940 57 28 00020 MOVC R7, CQ Seve stERO}, @COMMAND_BUFCCOM_SIZE] ; 4441 
58 57 9 900 8 ADDL2 R7, COM_SIZE : 4442 
£0 56 0c F3 00028 28: AOBLEQ #12 QUALIFIER. BIT, 1$ > 4434 
50 Oc ac 00 O00¢F MOVL  SEMSP, R > 4451 
09 0000000060046 Di 00033 CMPL PATSGL_SEMANICRO], #9 : 


OulnroonrwnroO 
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; Routine Size: 


_PATSCODE + 0830 


3 
ADDL3 yaa BUF, 


32 V4.0-742 Page 
TER: CPATCH.SRCJPATACT.B32;1 


com 5 
#3, PATSWRITEFILE 


BeBe Se Se Se Be Se Se Be Be 


PATACT 


Elapsed Time: 03:18.5 
Lines/CPU Min: 4230 
ROnenne see wies 33 40 
one Used: 466 pages 
Compilation Complete 


1 
18. -$ep-1984 00:23:1 VAX-11 Bliss-32 V4.0-742 Page 45 
v94-000 14- Sats 7 90:93:38 DISKSVMSMASTER: CPATCH.SRC CIPATACT.B32: 1° (10) | 
3 1436 4469 1 END | 
(7 1435 4470 0 ELUDOM | 
| | 
| ~EXTRN LIBSSIGNAL | 
I 3 PSECT SUMMARY | 
F Name Bytes Attributes | 
i: _PATSPLIT 376 NOVEC,NOWRT, RD ,NOEXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(O) 
; ~PATSCODE 2204 NOVEC,NOWRT, RD EXE,NOSHR, LCL, REL, CON,NOPIC,ALIGN(2) 
3 «” 13 0 NOVEC,NOWRT,NORD * NOEXE , NOSHR, LCL, ABS, CON,NOPIC,ALIGN(O) | 
| | 
|: Library Statistics | 
Ste ES So) es ee er Symbols -oe-e--- Pages Processing | 
: File Total Loaded Percent Mapped Time 
: -$255$DUA28: (CSYSLIBILIB.L32;1 18619 13 0 1000 00:01.8 
| Information: 1 
3; Warnings: 
> Errors: | 
| | 
COMMAND QUALIFIERS | 
; BLISS/CHECK=(FIELO, INITIAL,OPTIMIZE) /VARIANT:1/LIS=LIS$:PATACT/OBJ=OBJ$:PATACT MSRC$:PATACT/UPDATE=(ENH$:PATACT) 
Size: 2204 code + 376 data bytes 
| Rus Time: 01:03.4 | 
| 
\ 
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